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INTRODUCTION. 


Le système LISP T 1600 est conçu pour la recherche et l'en- 
seignement en Informatique musicale et en Intelligence 
Artificielle. Sa facilité d'emploi et sa clarté en font un 
excellent outil d'enseignement. L'incorporation de fonctions 
puissantes, et sa possibilité d'emploi en mode conversationnel 
en font, malgré les limitations ou taille mémoire, l'outil 

le plus utilisé pour la recherche au sein du Groupe d'Intei- 


ligence ÀArtificielle de Vincennes. 


Ce manuel n'est pas réellement destiné aux débutants, mais 
aux utilisateurs ayant déjà une certaine expérience de LISP. 
Il décrit en principe tous les aspects courants du système. 
Ce manuel n'engage l'auteur que sur les principes de base, 

` 


et sera sujet à des remaniements, au fur et à mesure de l'évo- 


lution normale du système et de ses utilisateurs. 


Si, au cours d'un travail, vous détectez une erreur manifeste 
du système, ou une situation très anomalique, laissez tout 
dans l'état, et venez me chercher, çà permettra de faire sauter 


les erreurs qui subsistent (inévitablement) dans le système. 


Je crois à propos de remercier J. CHAILLOUX, Giuseppe ENGLERT, 
Harald WERTZ, J.C. HALGAND, P.L. NEUMAN, J. POINDRON, J.E. 
SCHOETTL, J.P. BOUDIER, S. CHARALAMBIDES, D. GOOSSENS, qui ont 
lu la version préparatoire du manuel et dont les excellentes 
suggestions ont et auront influencé la conception du système 


€ 


dont ce manuel est le manuel. 


Jean ZEITOUN et Alain BUIS ont permis et encouragé la construc- 
tion du LISP T 1600 à l'Institut de l'Environnement, en y créant 
une atmosphère dans laquelle la conception et la mise au point 


de logiciels avancés est un véritable plaisir. 


http://www.artinfo-musinfo.org LISP T1600, février 1975, page 5/58 . 


ат еее отво ааа F раа а, 


GENERALITES. 


L'interprete tourne enmode EVAL : il lit un atome ou un appel 
de fonction, l'évalue, imprime le résultat de l'évaluation, et 


recommence. Quelque chose comme çà :, 


(WHILE T | | 
(PRINT(EVAL(READ)))) 


On peut entrer des S-expressions sur cartes ou au clavier de 
‘la machine à écrire (MAE). Sur cartes, on peut écrire en format 
liore sur toute la carte. Au clavier, la MAE indique qu'elle 


attend un ligne en tapant "2", on tape alors à la suite. 


FORME DES ATOMES : 
cà peut être un nombre, i.e. une suite de chiffres, éventuel 


lement précédée de "-". Une suite de chiffres précédée de 


"+" n'est pas considérée comme un nombre. 


. са peut être un atome non-numérique, toutes les combinaisons 


de caractères sont bonnes, sauf les séparateurs. 


SEPARATEURS 


"espace", ".", "(" , ")" , "5". On peut constituer toutefois 
des atomes comprenant des séparateurs grâce à la fonction READCH. 


Un macro-caractère constitue un nouveau séparateur. 


COMMENTATRES : | < 


Tout se qui ce trouve entre deux ";" sera ignoré, quoique imprimé 


si c'est sur cartes. 


LISP T 1600 n'utilise que les nombres entiers. 


+ 


Le 
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X 


Ils devront être inclus dans l'intervalle [-32768 : 32767 |. 

Les atomes numériques ne comportent ni C, ni P-valeurs ; 115 
sont stockés directement dans les listes ou dans les variables. 
Des nombres hexadécimaux peuvent être utilisés directement, 

ils ont la représentation : CCCC HH , les "C" étant des chif- 


fres hexadécimaux. 


A l'impression, Sauf modification (voir MOT DE CONTROLE) tous 
les objets édités (par PRIN! ou PRINT) seront précédés auto- 


matiquement d'un espace. 


Sauf modification, le nombre d'atomes définis par l'utilisateur 


ne pourra dépasser 200 (nombres non-inclus). 

Sauf modification, l'utilisateur dispose de 2.600 doublets 
libres. L'utilisateur peut savoir à tout instant combien il 

reste dedoublets libres пи évaluant o 


(CDR 'REM) 


FORME INTERNE DES ATOMES 


Un atome non-numérique est (approximativement) représenté en 


mémoire ainsi 


C-valeur | P-valeur 


PNAME 


Le partie PNAME contient la sortie de caractères qui représente 


son nom externe (imprimable). 


A la lecture, Seuls les В premiers caractères d'un atome seront 


5 › pris en compte, le reste sera ignoré. 
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La partie C-valeur contiendra, à tout instant, la valeur de 
l'atome. 

La partie C-valeur sera considérée comme le CAR de l'atome. 
Les C-valeurs des atomes définis par l'utilisateur seront 
initialisées à la valeur "indéfini", се qui provoquera à 
l'évaluation l'erreur А8. 

La C-valeur des SUBRS contient l'adresse du code-machine cor- 
respondant. | 

Certains atomes du système contiennent leur propre adresse en 
C-valeur, c'est le cas de : NIL,QUOTE,LAMBDA,EXPR,FEXPR,T. 


Nul besoin, done de les quoter. 


exemple : (LIST NIL QUOTE LAMBDA EXPR FEXPR T) 
donnera : (NIL QUOTE LAMBDA EXPR FEXPR T) 


La partie P-valeur contiendra la P-liste de l'atome. Elle sera 
considérée comme le CDR de l'atome. Les fonctions DE et DF ^ 
ne touchent pas aux C-valeurs des atomes. On peut donc redé- 
finir momentanément une fonction standard comme une EXPR, une 


НЕХРЕ, ou une FEXPR (voir TYPES DE FONCTIONS). 


exemple : rédéfinition de SETQ pour qu'elle imprime à l'appel 


"nom de la variable = sa valeur" 


(DF SETQ (1L) 
(SET (PRIN! (CAR 1L)) (PROGN 
(PRIN1 =) (PRINT (EVAL (CADR 1L))) ))) 


l'appel : (SETQ X 5) provoquera alors l'impression. 


у = 5" 
Je puis annuler cette redéfinition еп évaluant (RRLACD "SETQ NIL) 


MACRO-CARACTERES 


Il уа la possibilité à la lecture d'appeler une fonction LISP 
à 1а seule occurence d'un caractère. Le résultat de l'appel де. 


-. 


cette fonction sera substitué à la place du caractère lu. 


в e / . L е 
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On procède ainsi 


(MCEAR caractère fonction) : сесі dit que désormais, la fonc- 
tion sera appelée avec NIL comme argument, si le caractère 
est lu. Le caractère "'" est une macro standard. 51 elle пе 


l'était pas, on aurait défini 


(MCHAR '(LAMBDA () (LIST QUOTE (READ) ))) 


Et, à la présentation de 'ob, ob étant un atome ou une liste, 


сета substitué : (QUOTE ob). 


Le macro-caractère ainsi défini est alors considéré comme un 


nouveau séparateur. 


ATTENTION 


Un macre-caractère particulier ne peut être défini qu'une 


seule fois. 


S-EXPRESSIONS POINTEES 


Elles sont acceptées par le système, sous la forme la plus 
générale | 


(expression.expression) 


exemple : ((A.(B.C)).(DE . (F G H . 1))) 


EVALUATION DES VARIABLES 


Il n'y а pas de A-liste. A tout moment, la valeur des variables 
est accessible dans 1а C-valeur. А l'entrée де PROGs ou à 
l'appel de fonctions dont Та variable est argument formel, la 
valeur d'une variable est empilée dans la pile de travail et 
restituée à la sortie Ше LISTING DE L'INTERPRETE) au moyen 
des fonctions BIND et UNBIND. | 

ы Се mode d'accès est très efficient, mais ne permet plus l'usage 
des FUNARG commeen LISP 1.5. Reste que nous n'avons pratique- 


ы i ment jamais eu d'occasion sérieuse de les utiliser. 
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Un bon ensemble de traces, d'éditeurs, de pretty-print, et 


d'indexs-catalogues est disponible, écrit directement en LISP. 


Le système effectue pour son compte le strict minimum de CONS. 


> 


Les garbage collections dus ап système seront donc relati- 


yement peu fréquents. 


Le système est défini indépendemment де la Т 1600, et peut donc 


L L 


être transféré rapidement sur un autre ordinateur. 
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TYPES DES FONCTIONS. 


Le système comporte six types de fonctions 


SUBR,NSUBR,FSUBR,EXPR,NEXPR,FEXPR. 


Les SUBR sont des fonctions standard en langage-machine. 


Les EXPR sont des fonctions définies en LISP par l'utilisateur. 


SUBR, EXPR : les arguments, en nombre fixé sont évalués, puis 


sont passés à la fonction. 


NSUBR, NEXPR : les arguments, en nombre quelconque, sont éva- 
lués. Puis ces valeurs sont rassemblées en une 


liste qui est passée à la fonction. 


FSUBR, FEXPR les arguments, en nombre quelconque, ne sont 
pas évalués, mais sont rassemblés en une liste 


qui est passée à la fonction. 


Si une fonction (standard ou utilisateur) n'a pas assez d'ar- 
guments fournis à l'appel, les arguments manquants sont sup- 
posés être NIL. La fonction ne peut donc pas distinguer entre 
NIL donné comme argument, et pas d'argument du tout. C'est 


fort commode. 


exemple : (FOO) et (FOO NIL) reviennent au même. 

(SETQ X NIL) a le même effet que (SETQ X). 
Si l'appel de la fonction comporte trop d'arguments (pour les 
EXPR et SUBR), ils sont évalués mais ignorés par la fonction. 
Donc, si on a une fonction f à m arguments, et qu'on évalue 
(f хі x2 ... Xp), avec n>m, les arguments xn+1 , Xp*2 , «++ s Xp 


seront ignorés. 
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Les arguments formels en trop jouent donc le même rôle que les 


variables locales des PROG, et sont initialisés à NIL. 


On dispose d'une fonction standard PROGN, à nombre quelconque 
d'arguments. Celle-ci évalue ses arguments de gauche à droite 


et retourne la valeur du dernier. 


Les LAMBDA-expressions ont un PROGN implicite, 1.e. 
(LAMBDA (А1 А2) еј eo ... en) 
sera intérprété comme 


(LAMBDA (А1 А2) (PROGN е) ег... en) 


et la valeur ramenée sera celle de en. 


Les NSUBR sont les fonctions standard 
LIST , PLUS et TIMES. 
Les NEXPR sont des fonctions ont la LAMBDA-expression а un 
CADR atomique. 
exemple : dans 


((LAMBDA X еј eo ... ед) а) ар ... ад) 


ОХ sera lié à la liste des valeurs de ај ар ... аш. 
exemple : si LIST n'était pas une fonction standard, elle serait 
définie ainsi | 
(DE LIST L L) 


En général, on définira une NEXPR ainsi : 


(DE nom atome e eo ... eh) 
la 


t 


fonction 


Le COND est généralisé de telle sorte que chaque clause peut 


comprendre п>1 expressions. 
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exemple 


(COND 
| (Р1 Е11 E12 Е13) 
(P2 E21 E22) 
(P3) 


(Ph Eh1)) 


. ^ ” ” . “ 
sera considéré comme équivalent à 


(COND 
(P1 (PROGN Е11 E12  E13)) 
(P2 (PROGN E21  E22)) 
((SETQ x P3) x) 
(Ph E41) 
(T NIL)) 


En 1ISP T 1600, VRAI est équivalent à non-NIL. 

Ceci permet de considérer une fonction comme ramenant une valeur 
utile, et pour tester une certaine condition. Par exemple = 
(MEMQ x y) ramène, ou bien NIL, ou bien le CDR de y qui com- 
mence par x. De mëme la valeur de OR est la valeur де son рге- 
mier argument vrai, i.e. non-NIL, et la valeur de AND est, ou 


bien NIL, ou bien la valeur de son dernier argument. 
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MOT DE CONTROLE. 


Il existe un mot де 16 bits 


tème. Ce mot est accessible 


"CLABIT. 


BITS 


14 


LS: 


12 


11 


10 
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qui contrôle certains états du sys- 


au moyen des fonctions SETBIT et 


FONCTION DU POSITIONNEMENT 


un espace est placé AVANT tout 
Objet, atome ou liste, impri- 
mé dans une ligne. 


suppression de cet espace 


sortie télétype 


sortie imprimante 


les macros-caractères sont pris 
en compte | 


11 n'en est rien 
sortie de nombres ou décimal 


sortie en héxadécimal 


les ";" sont pris en compte 


non 


les "/" sont pris en compte en 
entrée 


non 


ne restitue pas les "/" en 
sortie 


edu am 


BITS 222-2277 FONCTION DU POSITIONNEMENT 


8 = 0 : impression еп TOP-LEVEL 


= | : non-impression TOP-LEVEL 


T = 0: listing carte lue sur LP 
= |: listing carte lue sur TTY 

6 = O : rien 
= | : lecture sur disque 

5 = 0: rien | - 
= 1 : écriture sur disque 

0 = 0 : lecture sur télétype 


= 1 lecture sur lecteur de cartes 


Au chargement de LISP tous ces bits sont à zéro. 


Toute erreur (voir ERREURS) remet le mot de contrôle à zéro.. 
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ERREURS. 


S'il y а une erreur detectée, LISP tape "хЕК type" et repasse 

la main au clavier et à la boude de lecture de l'interpréte. 
Aucune 22110 de fonction, ou attribution de valeur à une 
variable n'est modifiée, et une garbage-collection est effectuée 
dans la foulée. | | 


Voici les types des erreurs 


LC : erreur de lecture. Cà peut être une liste commençant 
par ")" ou bien "." non suivi de liste atome  ")". 


En général, çà détecte trop de ")". 


қ ” 
RT : l'utilisateur a tenté де: faire un RETURN Sans être dans ` 
un PROG. 
FS : la pile de trevail est débordée. Erreur en général due 
à une récursicn infinie. 
ЕМ : il n'y a plus de doublets disponibles еп. zone liste. 
AT : il у а trop d'atomes définis par l'utilisateur. 
A2 : fonction non-définie, détectée dans APPLY. Le nom de cette 


fonction inconnue est IMPRIME avant le diagnostic. 


Аб : СО ou GOTO à une étiquette absente du PROG courant. 
Le nom de l'étiquette est imprimé. А 

АВ : tentative d'évaluation d'une variable non-initialisée. 
Le nom de la variable est imprimé. En général, la va- 


riable а été simplement oubliée. 


M 


А9 : fonction non-définie, détectée dans EVAL. Le nom de Та 


fonction inconnue est imprimé. 
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FONCTIONS DE CONTROLE. 


(EVAL ob) > 
^ \ 

SUBR 

(APPLY f 1) + 

SUBR 


(РЕЙСЫ е) ег...е,) + 
FSUBR 


(EPRYGN 1) + 
SUBR 


(EVLIS 1) ка 
SUBR 


(AND еј eo...en) > 
FSUDR 


(ФЕ е 1 e2...en) M 
ÉSUBR 


évalue ob et ramène за valeur. 


applique 1а fonction f à la liste 1 


d'arguments évalués. Ramène la va~- 


leur résultante de cette application. 
La fonction f ne doit pas être une 


FSUBR пі une FEXPR. 


évalue en séquence les expressions 
e1,...en et ramène en valeur, la 


valeur de eh. 


évalue en séquence les éléments de la 
liste 1, et ramène en valeur celle du 


dernier élément de 1. 


1 étant une liste (е ес...еһ), EVLIS 


ramène еп valeur 


(val Ге 11 val [e2] азын, VAL [en] ) 


les expressions е) ес...ед sont évaluées 
de gauche à droite jusqu'à ce que la 
valeur d'un des е: soit NIL : dans се 
cas, la valeur du AND est NIL. 

Si aucun des.e; ne donne NIL, la va- 


leur du AND est celle de eg. 


les expressions еј e,...en sont évaluées 
de gauche à droite. L& valeur du OR est 
celle du premier е; dont la valeur n'est 
pas NIL. бі tous les е; sont NIL, Ја 


valeur du OR est NIL. 
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(WHILE еј е, ... eg) + les expressions е) ёр ... ед sont 
FSUBR | évaluées de gauche à droite tant que 
Та valeur de е, n'est pas NIL. WHILE 
boucle ainsi jusqu'à ce que la valeur 
de еј soit NIL. WHILE ramène alors 
la valeur NIL. 


(COND с, BA 333 ск) + CÓND comporte un nombre quelconques 

FSUBR d'arguments с, Со... СК appelés clauses. 
Chaque clause сі est une liste : 
(1.1 lpi ... 1.1) de n21 expressions. 
Les clauses de COND sont traitées еп 
séquence comre suit : 
La p nens expression 141 est évaluée, 
ou bien comme fausse si - NIL, ou bien 

° comme vraie si # NIL. 
Si la valeur de е: 1 est vraie, les 
expressions loi ... 1,1 qui suivent dans 
la clause ci sont évaluées en séquence, 
et la valeur de COND est la valeur де 


1,1, la dernière expression де la clause. 


En particulier, si n = 1 i.e. si la clause 


сі пе comporte qu'une expressions, la 
valeur du CÓND est alors celle de 141. 

Si еүі, est fausse, alors le reste de Та 
clause с. est ignoré, et la clause 

suivante c; + 1 est traitée. 

бі aucun eji n'est vrai dans aucune clause, 


la valeur du CÓND est NIL. 


J'ai emprunté l'explication qui ртеседе 
au,manuel du LISP BBN (Bolt, Beranek, 


Newman), en raison de sa remarquable clarté. 


(PRÉG 1 ej ер... en) > 1 : liste де variables locales, ou NIL 
B 


R si У еп а pas. е) ... е, : Suite d'expres- 
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(RETURN ob) > 


цан” SUBR 


(60 е) | > 


FSUBR 


(GOTY e) + 
SUBR 


АТТЕКТТФИН 


(QUOTE оъ) > 
| FSUBR 


sions dont chacune peut être précédée 

d'un atome qui servira d'étiquette aux 

СО et 0010. 

A l'entrée du РЕЙС, les variables locales 
sont réservées et initialisées à NIL. Puis 
les е) ... ёр Sont évaluées en séquence, 


les étiquettes étant sautées. S'il n'y а 


pas de RETURN évalués, la valeur du PRG 


est celle de e,. 
Les étiquettes consécutives sont autorisées, 


les étiquettes numériques sont interdites. 


sort du PRG courant en ramenant la va- 


leur de ob en valeur. 


e : atome qui doit etre une Étiquette 
du РЕЙС courant. 00 fait reprendre l'éva- 
luation du PRÓG à partir de l'expression 


qui suit son étiquette. 


id. à G$, mais l'expression e est évaluée, 
et doit donc ramener en valeur un atome 


qui est une étiquette du РЕЙС courant. 


GØ, СОТО et RETURN peuvent tout à fait 

être évalués dans des fonctions appelées 
par un PRÓC. | 
Toutefois, sauf à ЖЭ 1277 un ESCAPE, оп. 
ne peut sortir d'un PRÓG que par un RETURN, 
ou par la fin du РЕЙС, ou encore par une 
erreur (!). 

ramène ob sans ВЭ. LISP Т 1600, on 


écrit plutôt "ор. 
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(ESCAPE f ej ... е ) + г: un atome non-numérique 


n 
ет... €, : une suite d'expressions à 
évaluer. 

ESCAPE évalue les еј ... е, en séquence. 
Si dans la portée du ESCAPE se produit 
l'évaluation де (f Ob, ... obn), оп évalue 
les ора ... ob, en séquence, et on sort 
du ESCAPE en ramenant en valeur celle de 
Обр. Si celà ne se produit pas, la valeur 
du ESCAPE est celle de е. 


ESCAPE est la fonction de saut la plus 


‚ МОТЕВ QUE 


+ 


puissante compatible avec Та structure de 
contrôle de LISP. Elle n'existe avec 
И cette généralité qu'en LISP Т 1600,.Un. 


— вачи < MESA 2 
"M UAM Win лек таи ESCAPE est une sorte d'étiquette, et sa 
> -à ^ үзім 


ан х 
ЭЭ ү эн uera ig: Dus ges уу: à 
mihi IR НИВА a S aes БЫ Dc Же 
D сау o t0 KES Чи S08 ее И Rae ` а Ра 
^ z. ж » - + "um À - Ы ы 
ie x 475. E 4... о Z ж. ма 2% а Уатара“ 14 8 P 5 % mx Po . РА ^ 
L r ғ ES 2 Sa КОН e AS 5, es 3 ізі Ха 
КРЕ eum о sortie une sorte de branchement ramenant 
ғ T Tá 5 эх, 7x за за A 
C$ T CIL Aur T Nh + 
.“ = / ^ + F3 кы - EM "m 5, - 
AT : L - ЕР + Эду, ща Ma = 4 i e 2 PPS . 
ы „st . - + bat d qur = А ако n Y e 
йк s 3, z х 2%, è ri “ез 
n Е : 3- PE ur u ° 
` 2 T - -3 
23-13 : A.U 43 43 413 таз t5 + “8 : 
- - + - ГА - » 
Я " 1 a 2% - UR . PE $ булдаг, 4 . 
` è * - ~ $ 4 - “ Tou КА Е - 
4 i 3 ` 2 k > з жау” 
ИИ Ee a T — c Dans(ESCAPE EXIT e ег е ау ехем- 
PU 324 у 434 - + г. ын o E d оо ° n 9 ` 
+” КЕРИ Р 3 
ПИ £ 18 ; 
ка л ч =. | 
xcd .. 
- + 
M sz 


ple, EXIT est 118 avec une fonction 


a с тер чери 
му 
xd. ` 


wr 

5) къ € 
Ы ^ 
ti 


interne nommée ESC. EXIT devient donc, 


Ha 
PL 


= ощ 
+ 


dans la portée ац ESCAPE, une fonction de 


sortie. бі, au cours de l'évaluation des 


r<. = - 205402 
ер ег... е,» оп est amené à évaluer 
т u V Z - ` 
г. Е (EXIT ob, ... оБ,), on évalue les ob1 ... 
527 Е 1 8 
CE i 3 " 
Се 22 л 
38 Ñ I | 2123 об, et on sort du ESCAPE avec Ја valeur 
dd pA. ad ыг Pi ere эз та E" 
e ` i 35 т ^. >, * Я М 
+. Y 204104 s = s Liane de ob... i 7 
2. * + š - : 2 E 74 п 
i £a а def, р os 234 
- Е x Lj : ` 
те Е > r. Ват 4 е © AGE 
D афар pd ^ а ЕГО бэт дала 312 ` | 
уд — < 4-2 до ил Тм 5 `. Le 
- е i + - + EE. i 1 Ж Аы 
Крка қозса ұсы Gn бы „СОЛИ Les ESCAPE peuvent s'imbriquer, et sauter 
Ë E laea h 23 2 1 ES 5, Ко? t di as "dl pos 
| à T өз E 1 d Peg. ЯВЫ vas 2 МЕ S 223 d 
COM IM pe BAN cod. Tar les uns par dessus les autres. 
Í E . 24% >, 23 z ад цо p 
Ç QUOI ии , 189474 is 5 ҺИ. «Л, «rd MCN 
о his < ња КОЕР ЊЕ пас dc Dire аман Ч 
Lx d ara pa ra RENE PRIT ыы тас RA 


Jean-Claude HALGAND 


шэн эт 


- 
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FONCTIONS D'ENTREE-SORTIE. U 


(READ) 
SUBR 


(PRINT ob) 
SUBR 


.(PRIN1 ob) 
SUBR 


( TERPRI) 
SUBR 


(TTAB n) 
SUBR 


(SPACES n) 
SUBR 


ATTENTIHS 


Sa valeur est un objet lu, atome ou liste, 


sur carte ou au clavier de la MAE (voir 


MØT DE CONTROLE). 


imprime ob.et raméne ob en valeur. L'im- 


pression 


est suivie d'un retour à la ligne, 


et précédée (sauf modification par (С 


(CLRBIT 15)) d'un espace. 


id. à PRINT, mais ob est seulement EDITE 


dans la ligne. 11 n'y а pas d'impression de 


la ligne, 


elle sera après coup imprimée 


par l'appel d'un PRINT ou d'un TZRPRhi.: 


provoque un passage à la ligne (ce qui 


éditée), 


. peut provoquer l'impression d'une ligne 


et ramène NIL en vaieur. 


le prochain objet édité (par PRINT ou PRIN!) 


sera placé à la position n dans la ligne 


TTAB ramène n en valeur. 


laisse dans une ligne en cours d'édition, 


n espaces entre le dernier objet édité 


et le prochain objet édité dans Та ligne. 


SPACES ramène n en valeur. 


€ 


si la somme des longueurs des objets édités 


dans une ligne par des PRIN! ou des PRINT 


excède la longueur de ligne standard, un 


^u 


retour а 


par le système, et l'impression se pour- 


suit à la ligne suivante. 
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la ligne automatique est provoqué 


2247-6403 


le contenu des cartes lues est systéma- 
tiquement imprimé sur la MAE lors de la 
lecture. Pour inhiber  provisoirement 
l'impression, positionner la clé 0 du. | 
pupitre. Enlever la clé 0 pour rétablir 


AMA 


l'impression. 


‘si au clavier de la MAE, on demande 


l'évaluation d'un atome, taper après 


l'atome un espace avant d'aller à la ligne. 


‚ауес (SETBIT 0) tout est lu sur cartes. 


avec (CLRBIT 0) tout est lu au clavier 


de la MAF. 


lit comme un atome le premier carctère 

immédiatement disponible dans le buffer 

de lecture. et le ramène en valeur. 

Si on arrive en fin de buffer, un nouvel 
ғ 


enregistrement est automatiquement lu. 


out caractère, séparateur inclus, peut 


ct 


A ^ ° 
être "quoté" en le faisant précéder du 


caractère "/". 
exemple : "AN/(NIE/)" 
sera lu comme l'atome de Т caractères 


"AN( NIE)" 


+ 


bien entendu, le "/" peut se quoter 


( READCH) | + 
SUBR 
NOTER QUE : 
(PAGE) > 
SUBR 
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lui-même. 


t 


provoque un saut de page sur l'imprimante. 


= 


кюе Eau 


х. 


FONCTIONS DE DONNEES. 


(ATOM x) 


> T si x est un atome 
NIL sinon 


SUBR 
- NIL est, pour ATØM, considéré comme 
un atome donc 
‹ (АТОМ NIL) > T 
(CAR x) ^ + (si x est un atome : ва C-valeur: 
SUBR | si x est une liste : son ler élément 
(CDR x) w> si x est un atome : sa P-liste 
SUBR si x est une liste : x SANS son ler 
élément 

(CAAR x) | | sont disponibles 

(CADR x) 

(CDAR x) 

(CDDR x) 

(CADDDR x) 

(CAADR x) 

 (CADDDR x) 

(CADADR x) 

(CAADDR x) 

(CADADDR x) 

SUBR 

(EQ x y) + si x et y sont des atomes 

SUBR T si x = y я 

| ss sinon 


si x et y sont des listes 


T si x et y sont PHYSIQUEMENT la même 
liste 


NIL sinon 


http://www.artinfo-musinfo.org LISP T1600, février 1975, page 23 / 58 


(NEQ x y) + (N@T(EQ x y?) 

SUBR 
| T 51 - КІП 

(NULL x) + E 

SUBR NIL sinon 

(NØT x) + identique à NULL 

SUBR 

(MAPC 1 p + applique la fonction f aux CARs successifs 

SUBR 0 де la liste 1 et ramène NIL еп valeur. | 
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(CONS x y) 
SUBR 


(LIST е1... en) 
NSUBR 


(LENGTH 1) 
SUBR | 


(NTE n 1) 
SUBR 


(MEMQ ob 1) 
SUBR 
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4 si у-ев% une liste, raméne une 


liste y avec x placé DEVANT 


l'ancien ler élément de y 


si y est un &tome, ramène la paire 


pointée (x . y) 


ramène la liste des valeurs des 
е 1 е ° е еп 
ramène le nombre d'éléments де la 


liste 1 


n : un nombre, et j : une liste. 
NTH raméne Та partie de 1 qui 


commence par le nième élément. 


par exemple 

si n = 1, la valeur est 1 

si п = 2, la valeur est (car 1) 
si п = 3, la valeur est (CDDR 1) 


d 


CUC e го 


ob : un atome, et 1 : une liste. 
MEMQ ramène 

NIL si ob £ 1 | 
sinon la partie de 1 qui commence 


par ob. 


par exempie 


(MEMQ хз '(x1 Хо X3 х) )>( x3 ху) 


donne à l'atome ob la valeur de 


l'expression е, et ramène celle-ci 


en valeur. 


(SET е + ег) 
SUBR 


(NCÓNS 11 12) 
- УВЕ 


(NCØNC1 14 е) 
SUBR 


(EQUAL еј ер) 
SUBR | 


(APPEND 14 12) 
SUBR 


(LISTP е) 
SUBR 


(ASSQ at 1) 
SUBR 


(CASSQ at 1) 
SUBR 


id. à SETQ, mais еј est évalué. 
A la valeur ramenée près, l'effet 


est équivalent à celui de RPLACA. 


concatère physiquement 14 et lo 
(qui doivent être des listes), 


et ramène 11 en valeur. 


(NCONC 1, (LIST e)) | 
Fort utile pour placer un atome  . 


à ia fin d'une liste. 
T si е) et ег sont identiques 
NIL sinon | 


surtout utilisé pour tester l'éga- 


lité de deux listes. 


‘ramène la concaténation d'une СОРТЕ 


de 14 а 12. 


е si е est une liste 


NIL sinon 


1 doit être une liste de listes, et 


at doit être un atome. 


ASSQ ramène la sous-liste de 1 dont 


at est le Тег élément, sinon NIL. 


ramène Те CDR de la sous-liste de 1 


dont at est le 1er élément. 


exemple : 


(А559 D ((B.C)(D.E)(A.C))) 
ramène : (D.E) 
(CASSQ D ((B.c)(D.E)(A.C))) 


ramêne : E 
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_ (REVERSE 1) cm 
. SUBR 
i ( GENSYM) | + 
SUBR 
(SUBST e at ob) > 
5088 


NOTER QUE 


(MAP 1 f) is 
SUBR 
(RPLACA ob4 obo) + 
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ramène une copie inversée de la liste 


dos 


ramène à chaque appel un nouvel 


atome du type GOOOn ` 


Exemple 
(GENSYM) + 60001 
puis 


(GENSYM) + 00002 


etc е а е 

е : expression quelconque 
at : atome 

ob : liste ou atome 


ramène une copie де ob telle que 
toutes les occurences de at sont 


2 
remplacées раг е. 


(APPEND 1) donne une copie du 
top level de L 
(SUBST NIL NIL L) donne une copie 


complète de la liste L. 


applique la fonction f à la liste 
1 et à ses CDR successifs, et ramène 


NIL en valeur. 


si ob, est une liste RPLACA élimine 
son ler élément et place обр à Та 


place. 


si ob, est un atome, RPLACA donne à 


cet atome la valeur obo. 


—2 


- 24 ~= 


dans les deux cas, la valeur ramenée 
par RPLACA est оъ}. | 
A la valeur ramenée prés, l'effet 


est équivalent à celui de SET. 


(RPLACD оъ; obo) + . si ор) est une liste, RPLACD remplace 
SUBR son CDR par obo. 
. Si ob, est un atome, RPLACD remplace 
за P-liste par ob». 


Dans les deux cas, la valeur ramenée 


рат RPLACD est ob]. 


(PUT ob v ind) + ob : atome ou liste 
SUBR | | | ind. : atome 
si ob est un atome, place sur sa 


P-liste la valeur v sous l'indicateur 


ind. 


si ob est une liste, elle est consi- 
s 4 | dérée comme une P-liste, et v est 


placé sous l'indicateur ind. 


La valeur ramenée par PUT est ob. 


(СЕТ! ob ind) + si ob est un atome, on considère 
SUBR . _alors sa P-liste, si ob est une liste, 
elle même. GET ramène la valeur 


trouvée sous l'indicateur ind dans 
la P-liste ; si ind n'existe pas, 


€ 


GET ramène NIL. 
NOTER : En LISP T 1600 les P-listes ont la 
| structure 


(indie, val; indie, val, ... indic, 


уа1,) F 


Ss ES 
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(NEXTL 1) 
FSUBR 


- 7 


Donc GET et PUT, en testant les 


indicateurs vont de deux en deux 


éléments. 


1 D#IT être une variable qui a 
pour valeur une liste. 

NEXTL ramène le CAR de la valeur 
de l,.et place dans l le CDR de sa 


valeur. 


Exemple 
(SETQ X (NEXTL 1)) 


est équivalent à 


(SETQ X (CAR 1)) suivi de 
(SETQ L (CDR 1)) 
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FONCTIONS D'ENREGISTREMENT. 


(DE at l eq ег... D + permet de définir une fonction de nom 
FSUBR at et de liste d'arguments 1. Cette 
fonction sera une EXPR. La valeur 


ramenée par DE est at. 


(DF at 1 e] ег... En) + id. а DE, mais la fonction définie 


FSUBR sera FEXPR. 


.DE place dans la P-liste de at, sous 
l'indicateur EXPR 


(LAMBDA 1 е) ... en). 


.DF place dans la P-liste de at sous. 


l'indicateur FEXPR 


(LAMBDA l ер... ед). 
REMARQUE : faire : (DE at 1 гү... в est équivalent 
à faire : (РОТ "аф '(LAMBDA 1 еј ... е) ЕХРЕ) 
et faire : (DF at 1 су... ед) est équivalent 
à faire : (РОТ ‘at '(LAMBDA 1 еј ... e,)FEXPR) 
(MCHAR c f) + c : un caractère, et f : une fonction. 
FSUBR Indique que désormais, si le caractère 


c est lu, la fonction f est appelée 
avec NIL comme argument. Le résultat 
de (f NIL) est alors placé dans la 
donnée lue à la place du carctère с. 
La fonction MCHAR permet donc де 
définir des fonctions qui seront арре- 
1ées A LA LECTURE, par la seule pré- 
sence du caractére c. 


MCHAR ramène с en valeur. 


ТҮТІГІ 
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FONCTIONS ARITHMETIQUES. 


(ADD1 x) | Еа x+1 
SUBR 
(SUB1 x) + х- 1 
SUBR 
(DIFFER x y) > х-у 
SUBR 
(900 ху) > x/y : division entière 
SUBR 
(REM x y) > reste de х/у 
SUBR | 
(PLUS хр хо... Ха) bi X4*X5* «tX 
NSUBR 
(TIMES хү хо... Ха) > X4 X Xo X ... Æ Ха 
NSURR 
. (NUMBP x) ә x si x est un nombre 


SUBR NIL sinon 


(ZERÓP x) | 5 0 si x=0 


SUBR NIL sinon 


SUBKR NIL sinon 


(GT x y) + 
SUBR | 


х 51 х>у 


NIL sinon 


(EQ x y) > 
SUBR 


Si xzy 


| 

| | 
ss щат 

| 

Р 


NIL sinon 
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(NEQ x y) + Ë si xZy 

SUBR NIL sinon 

(СЕ зе y) = f si х2у 

SUBR NIL sinon 

(LE x y) > x Si х<у 

SUBR NIL sinon 

(GTZ х): ёо >. x si х>0 

SUBR NIL sinon 

(LÓGAND x y) > ET binaire des nombres x et y 

SUBR | | Би 

(LÓGÓR x у) > 00 binaire 

exemples 

(LÓGAND ОЕООНН 35ABHH) > 0500HH 

(10008 OOFFHH FFOOHH) + - ЕЕЕЕНН 

(LÓGSHIFT x n) + >` donne la valeur du nombre x décalé 

de n positions à droite si n>0 

. de n positions à gauche si п<0 

Exemple 

(LÓGSHIFT OOFFOHH l) + ОООЕНН 

(LÓGSHIFT OOFOHH -h) > ОРООНН 
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FONCTIONS DU SYSTEME. 


: (RESET) 
SUBR 


(SWITCH n) 
SUBR 


(GBLIST) 
SUBR 


(CLRBIT n) 


réinitialise le système LISP, et ramène un LISP 


frais. (RESET T) repasse la main à BÜS/D. 


n si la clé n с [0,15] du pupitre est positionnée. 


NIL sinon 


ramène la liste de tous les atomes non-numériques 


introduits par l'utilisateur. 


place à 1 le but n с [6,45] du mot de contrôle 


“ 
et ramène n en valeur. 


place à 0 le bit n е Пара да mot de contóle 


et ramène n en vaieur. 
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FONCTIONS 107 et VAG. 


NOTER 


La représentation des nombres en LISP T 1600 


un nombre n est un doublet 


| annuns | n - | | | LZ 
done : soit l'adresse 1024 en mémoire : | 


1024 х 


(САВ 1024) 
NE DONNE PAS x , parce que 1024 c'est en fait 


Exemple : l'atome "ЕД" = supposons 16 précisément à l'adresse 


1024 en mémoire. 


(LÓC 'Е@@) 3 1024 


donc (16С objet) donne sa véritable adresse en mémoire sous la 


forme d'un nombre LISP 


exemple : (ADD1I(L9C'F99)) > 1025 


INVERSEMENT 


Sachant que РЙЙ est en 1024 
(VAG 1024) > FØ- 


° done : (VAG adresse) donne la valeur LISP de l'objet stocké à 


cette adresse 
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Ces fonctions sont très utiles pour modifier certains aspects 


du système, ex. : les limites de zones atome, mémoire libre, 
pile, etc. 
exemple : pour obtenir 300 doublets supplémentaires en mémoire 


libre, faire 


(NULL(SET(CDR  'CAAR)(VAG(PLUS 600(L#C(CADR 'CAAR)))))) 
puis 

(NULL(SET(CDR. 'CADR)(VAG(PLUS 600(L#C(CADR ' CADR) ))))) 
puis provoquer exprés une erreur lecture. Le système sera 


réinitialisé avec 300 doublets supplémentaires. 
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FONCTION GRAPHIQUE. 


(CALCOMP x n) éxécute n fois sur la table tracante l'ordre x, 


tracant un segment de 1/10 mm. 


x = Ó — 
1 7 
2 À 
3N ; 
| < | І, № 
6 4 
TN 


8 lever la plume 


Les Blancs jouent et gagnent 


9 baisser la plume 


> 


МОТЕВ : 


Le système LØGØ-LISP permet de tracer en . mode ordinaire incrémental 


м 


. mode х-у à cocrdonnées 


. mode TORTUE 


ATTENTION : 


Si vous voulez interrompre un traitement en cours parce que ça 
semble boucler, ou pour une autre raison, faites L appels | 
console. B@S/D vous indique une erreur. 

Tapez alors CLISP, et vous vous retrouvez dans la boucle de 


lecture LISP, avec vos programmes et vos données préservées. 


PPP ET 
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NOTER 


un système d'entrées-sorties complet, ainsi que des primitives 
de gestion de fichier sont en cours de mise au point. Toutes 


les commandes FMS seront des fonctions standard du LISP T 1600. 
Existent et sont disponibles 


. divers programmes de.TRACE 

. un sous-ensemble de l'éaiteUg INTERLISP | | 

. des programmes de mise en page = PRETTY-PRINT ШЕ 

. un package d'indéxation de fonctions, écrit par Daniel 
G. BOBROW | BENE 

. un LAP complet, donnant accès à toutes ies instrüctions du I 
langage machine de la T 1600 | 

. un compilateur 


. une version restreinte du langage CONNIVER 


. une version du langage 5000 : gestion de tortues. 


Ces programmes seront documentés dans la prochaine version 


du manuel référence. 


Toutefois voici les manipulations provisoirement nécessaires 


pour charger des fichiers LISP stockés sur disque 


sous BØS/D faire 


x CALL FUP3 
x FDUPLI,LISP2,Dh,LISP?2,D?2 
xFDUPLI,nom du fichier,Dh,nom du fichier „ра 


Puis 
x JOB nom,,D2 


x RUN LISP?E 
x LISP 


2251 кз 
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Mettez la clé 0, puis tapez 
(SPENYLD nom du fichier). 
et le fichier est alors chargé. 


Les "noms de fichiers" peuvent être : 


TRACEF:D 
PRETTY:D 
EDITR:D 
CONNIV:D 
LOÓGQTÓ:D 
LAPLAP:D 


(7 
LISP tape alors Je тү" 
etc... 


уй = 71.. 


С.А.!.\/. Patrick GREUSSAY 
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(SETRIT 14) 
14 
' (TEST LISF 116009 
(TEST LISF Ti600) 
(WHILE: T FRIMT 
(МАРС ? 
CTERFRI)) 


f 


NIL. 
МІ: 


«ола «өсе su 0994 come .... өссе поло 


с) 


40 са дол °... 0098 есес оосо *999 9009 


«100 0066 өрөө есес "s «еее 0499 €999 


3) 


— фэтэ .... Qood осло 4099 әсет оа 


(3 COMMENTAIRE 
NTI. 


e ««ес 0909 .... co^ .... s... «ее 


(КРЕ АСА SAVE 
SAVE 


чо «кес am өсер өсет соли «ва? әсте 


w. пола росс 0488 .... .... сето ооо ê 


«САТ 


9990 га 099 0600 ФФ сота доа rere 


теа 9009 14642 (0499 оче teoa «тез вото эээ? тээ! ооо соод пов s. 0000 зове 


«тез тоб 09449 рань «ӨӨР ебее өмет өле —— e^ 9640 кал оосо 7000 этэ өсте 


49 овоа cod ss? зара төбе око тела a—— 929 4999 9999 ее 1964 кезе Dane 


a. «тез косе Фвээ поли око еее етее « вата сото фото 6094 9995 42606 200% 


(SETRIT 110 
11 | 


— өссе ә өсе есеб есте эээ? opoe s... 


«кте s ФОТО 0909 ттээ «ее <s есеб пое 0909 бога доо ооб о 0099 ФФ мод 


соо оффе "099 0209 9004 о mp өзе «ее носе есес тэрээ рано s s оо төө? 


(SETRIT 
ОООСНН 


ub одо мода сов 601 s “s Dane — өссе сага овоа эзмелей ээрээ 264 wes 


«ире очна —— ел Que 2 ANA пеев au esee oane 6604 asna өвөө әсте тоте moce 


т» оао одо оно 044-9 s... s.a “¿s s өтесе se 9999 sm есет s s 


— жылый 4:04 өлмес «себ CARS s есеб Өвөө 3504 Фрее вээ? есеб +è сес “s. 


m. оле» ........ MIB есте воо 64609 er we una есес ws өсте 0999 9096 


— ——— — < оос am as s рат одев s есет өөө? зээ? 09499 өөө. 


pes 0060 өтсе ss ода өлке воа e ге тээд vecs олай vent omeo этэ  Фөтө 


CE VAL. 


T ose өвөө 0006 0060 сове vent eee 


«го: 0099 9609 4999 0999 0699 962 егет 


об 0000 .... coot 2008 9499 гово 


- s 0440 9907 9009 егет 2099 9-499 


оо 


соте 0999 9999 9999 s... 4400 sooo өеее 


— Фово «сес ессе осо эээ 095+ 0909 


1809 тээд 0006 o6 9029 9994 9099 s... 


LISTING DU TEST LISP Т 1600 


CRE ALU) Э 


г... — 9929 года 


оос cose sont тэээ 6900 вове sv 


род оеро cure сово ово воо го 4699 


ээ? s s есте лес 92999 m s 


өөө ттээ 0999 0942 2403 004 6962 веза 


SIT БІТ 11 „ INSENS 


жэоФ v. соба «000 0909 сее 909 pere 


aran e— 0000 cort во ооба 0444 9-95 
` 


== есес 0699 осоо 9944 9999 софе егее 


— седа tent ЭРЭЭ 2904 4 тесе 0979 


пове өөө rora дове воот 0099 2004 гово 


0000 00090009 ете? voos 0999 soot .... 


соб veas 9864 өрө «99 0009 4999 v... 


«гос дове 999» sooo поре воо 9099 tooa 


5 AURE SSE 


чо (999 .... .... vuit сода tovt .... 


9499 1140 2994 2904 8049 5099 әсет eote 


) л 


е 9999 0904 0960 9999 


“ет эгээ рода 0099 6924 9999 оозе гово 


«еее repa 0499 0546 0995 90499 фро соло 


1 


0000 0000 >2%0 .... .... 9999 9994 вове 


=t әсте 0904 cvn. 0999 өрөө s... com 


9869 тэээ 0900 +... 0092 роо о соо 0000 


e сево 9904 сега 9599 $250 9990 .... 


вето 0999 core 0009 0000 940 0144 9699 


«тет 0020 v... $099 top оров осоо тев? 


«949 4209 1040 99909 прое 999^ 90999 veee 


956 6999 0909 »999 0000 9999 97909 orte 


194 9094 9494 9699 9919 09999 оого өвөө 


ПЕКМТЕК 


«ооо 9699 r... еге 9999 ӘРФе 999 .... 


99609999 vesc 09094 6859 tats 9499 290% 


epope .... 0606 эээ? .... 99-99 9999 994? 


4009 teta 0900 9494 $944 0996 2749 оче 


ое 0994 9994 tuya 9906 090% 2444 9999 


АТОМЕ. 


4406 0042 6049 ээрээ 09049 обла 6990 өөс? - - 


«044 229 ats 0904 9049 ороо 0000 oron 


эээ? бое 0099 6998 9499 өөө оосо ss 


BLE AUX Бо 


9444 Sot 0000 оро 0999 өсФе гето s“. 
. 


4494 ово 0000 ooon cova 0999 овла вања 


тээ? доо рео о poa доо ттээ өсте act 


C pese qut 0000 9999 өв... ооо о Өрөө 


зеле тээ? 1004 boob ède голо вања әсел 


ж- - 
- ~r ---- 
-- - 


SORTIE 
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SI RIT 12 » SORTIE HEXA DES NOMBRES $ С 


5 


ала A x. s 


- 35 - 
РКЕМ). 


= š -- - 
- - --а----- 
- - um un хи - se 
- А Анан + => s= 
- + t - - 
--. ee me юмс - 
- œ = = .. ---- 
- - es =v ~e æ --- _ 
- - -- < - - - 
^ - ` 
^ er - _ == 
- = - 
=+ « 14.00 «улл 
-. ~ an — — —— тэжээ - 
- = sms ма - 
= - — + -- 
„ - = ----+ --- - 
- даи Ра ь ——— + “+ 
шах 2 — M + - - = s< 
m - - х -- = = < < pa 
“- -- яв - - 
-a ---- <> + 
4 `. = aa es 
` - —-— — -.. mm - 24 
= "-— € id --..... — - 2-3 P 
5 ame -- --- 2% me Wawa - s 
= nau meme жола des ќе » < ce se - 
= -. a -- a -~ - 
` ma = < n oma -ner 
= = ses aee- — - NI MC 
————Á— ue E du cos РА реа 
ња 5 pons" Dre 2 
-- = re ---- —-* - - 
- == == == ---- 
- = —— e v ee же ` = 
м. = 
< = — -e p" -----. 2 T ----- 
- E - ———— mme ...-. m mise Q - 
= = - ж хэс нем -- € що а 
мэ ë А - et 25 = res 
+» май -—-  — - - ом — 
я. > w ————————— ч is ѓа 
— = - ———— — аа — + асам. DEM. 
жы és ----.-. w... res күле ne d 
-- зае Sato sat es стай w “* — 4 хааж 
азаға s ra ең ете чөлөөлж тоа mé w. ser 
реонот Ñ... K 
--- --- а w ama ias ———e—— 
us me s — pee ------. за. ses 
m 5 Р — ээ == w. sx“ = M 
- - - шон сезсе = 
асы .. кан - 
= ^ - -- 
» 
----- - -- — << —— — me = ve 
W == w > < -- = s - 
Ы pate — =œ 22 эж и 
= - —— es E = 
-- ----- = эж 2 
= — = ` 
-- = - --. -r ne 
- — = —  — — ы E 
= = ne Se omm 
85 же ж ой ж ж --- -- --- ---- 
— 
= ca л--4-- ------2 s... < - = 
25 `... — - — ss... ` = ашыса 
- us ne ms s. š ` - - 
+ t+- - qar ò nar 2 - + 
- sa - -- --- an 
- -- . -- = — — -- -- 
- - шигээ - se 
- == = 85705 - ++ -. 
2 - ------- --- ve 
<“ - -—- c - --. ma = à 
=u - ++ - -- --- 
- - - - —— -- - --- w 
+ 44 +œ => — =. 
- . - » -— 
- -- æ o - c ` 
- - + A va œ + - 
- - ev ------- an mta ... 
mir mw se - -- + - 5 —.—-—. - 
ue `. me - ---- -. - 
+ -- vee que - € == 
NS = „a mia - - 
=- sese > =o m m oe — - - = 
- - --- --- — 
.. . -— 
РЕ .... 
- - 5 


IY S „Í ИТ 


-ХСОКВЇТ 9) 


иго 202% 4499 оффе 5090 гээ? 4909 өзде 944 сове 900€ h... ээс paoe +... 9999 овоо 2444 огоо 925494 99949 tone Фе 9999 


HIT 15 +» 


тосо 499 0999 9699 .... «997 .... ooto 


INSE] 


w qus s тәте DOT љоњо $... s 


(SETRIT 13) 5 
15 


— тоға vast зээ? 0049 9994 vene cons 


(БЕТІ X QUOTE 


SI 


` 
—— есес ӨВӨӨ pato omua вооа тез ење 89489494 9998 (009 рор о raa 9995 тээгч ee 0000 990€ 90999 paee 669% meo оосо 


22, 


етте <. A защо өсте оеро тее race меча —— w. «еее жаңа .... rebi 6004 ж водо выве севе дење тепе овез 25% ге езге vote s. 9069 5996 neoe воза 


mwne Фред 8955 294 «Фея овоо v-et өзее oses voas 2002 гово соло (^9 666 6 „те apas 6099 $500 тээ? +200 2440 оро 4042 1099 9409 боза 0994 oore 0099 өзге овоо 


(CLRRIT 3.5) 
15 


7/7 20% 


оо 9665 s... r... 4999 0499 озсо bare ове одо есеб etes 9949 +... 6099 9440 «гө 9944 90999 9074 9902 8990 0999 эээ? 


INSENSIBLE 


орев 000 9 0006 9999 9049 орос 9999 +... 


(РАТМЪ 709 


0000 эч9%9 00999 5405 0000 0600 өзез тете 


ІРКІМТ 


почи 4194 0900 90099 оо 6-59 воо x... 


н) 


(FROGN <PRINI 
BON 


о.з. 9009 0006 0000 елес тээ? 9999 5999 


io 


- 99799 w 9994 тесе әсте доба 094 ороо 0000 соба 64094 6099 0009 4444 өөс. 


ol KIT 


(SETRIT 120 š 
15 


FROGN  СРКЪМЪ TE) ӨРКІМ2 "0) 
ком | | 


(CLREIT. 15) 
15 


по: 2044 0999 вре 8699 9049 0999 9999 9999 00060000 0000 0000 prot 09094 Өвөө 


sya о 
(QUOTE À) 

урна —  — e 
(QUOTE (QUOTE Ауу 


agar — wy 


бо «есе .... 0400 розе «mot әдет rare —-— 0999 ӨРӨӨ 0006 отоо v... 5058 9909 emen 0924 0999 0699 $999 .... 0029 9999 we... 0999 тео пола севе 9509 .... 9596 
Ti 2) 
сапт 
2 
Ga" —— «ғас i сезе +... әбес s. eee opne Өссе сова 90999 w... Фо то есес wan 4494 P999 0044 өөс? еее orea 2944 3596 өзее олоо s... сега t... 2:49 воза 


"АГНІ 19 
CALDI 1) р 
(в. 
(A RC. 
"аа В», 
са. В’. 


овде әбес 9690 өзе 2024 0990 есте тәте есес eve зака 0009 4404 отоо 0008 +... 


(C. 
D 


ase. эээ? тоте оеро әзейз «999 тээ? овоа 9899 0094 9904 1424 9702 әзге cast га w... s... 2024 LORS ессе зоос Dames 8898 


I) 


(CONI! (NIL) (Т 199 
i 


(CONI (13) 
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AUX MACRI- 


4594 20420 2906 9949 тээд .. bers 9066 


9*9 9979 0909 99099 90949 9099 $990 төге 


4404 есеге 9399 (P... 100 0004 обе .... 


nes 0000 0969 roer 6994 9999 9999 0660 


98909 sevo 9999 9866 ç... дове 9999 есет 


CARACTERES 


офф core 9909 9998 .... 9999 9949 toos 


“> 


Oset 0000 9992 0050 1001490 6994 9996 


— baa 4:44 тоа 0000 аға» вода apum BAND 009 DE вото соба P909 4499 тээ" отто эээ POUF өссе ооё 6999 4104 пола 0-09 PROS 94509 breed 6649 есеб 4009 бам s... ^99 9499 °. pemi (uae s... rre à 


(РАТМТ 


УМ) ) 


тол ово brès 99960 өзее вое йө 76 
поче Neo, 0600 элээ 595% өөс s... позе 1 
9059 $29 0600 4990 2499 90099 0099 .... 
эээ асып овла PONS ES сов дама ASS 
прод apes 9994 009€ лов 0606 s... 60998 
5500004 20904 Q... сода ü... 2944 .... 
сез 2104 9994 coce 5994 èrra төө? .... 
1424 сото 4420 оого x... сево 9009 өвөө 
85:64 .... 9049 оо 5060 1404 9999 эзел 


пове есеп тоте 0495 6449-1942 огоз G... 


SIBLE AUX MACRO- -САКАСТЕКЕВ 5 


бі QUOTES FAR 


FAS ПЕ BLANCS ENTRE LES EDITIONS 35. 


К 4 


— Бэ 
— + + c. --- 
.--- e 

-- va “ 

.. - 

mn + 


ten 


а + ---.- 


. 1 
mas s. фена $999 отоо 90049 өзее 0099 


{CONTI 


3 


4404 94099 0000 orot omer отта 9099 992 


СТ 4 2 3592 


= өс тэвэ LORS «өсе CONS Өзед пора гово яғ; 0999 0099 1999 ово 1699 боце отоо 


са АМЕПа | L5 А 7R 


(А Е С) 


«АРҒА Y 


mes 0000 opte 4006 әсте тээд 9990 oote 
- 


САК ? (ФА Б 


(SE FQ X "СНК? 
СПЕ 
САРЕ X 
(E C) 
(SETGQ L *( (ALI) 0) 
(ANDI 0) 
(FUL TS L.) 


(1 2 3) 


тое eium) мала. от 4 0060 490% «роз ss 


«ота 6000 0000 «099 9699 9209 отот веер 


"(А B 


тосо 0000 0000 0009 осто 9909 сото `... 


929% 9199 роо сода (UMS соо 9000 (90€ 


арта өгөө өте oote 9994 pone 4190 төл w e сове (049 bert peoe $499 бо 


— ав «тос оосо s m кӛше cent тээ? ente оосо вооа оосо 9959 ебеФ 6006 


«реп өзен 6000 Quoc тээ? тесе w о «сез 


NIL 


«ваз есес 449 воде 9999 2009 оого 4.09 чо.» өзе № ороо 9469 9994 9909 vove 


бяд боза есес әоса «кес доле 400 е hope 


(KFLACIH х TN 


тосо  -.. 9999 обоо реа сече 9006 


(CAR 7X) 
(R O H) 
(CLR 7X) 
(N Ü N) 
iRPL ACA 
(C H) 


000 0479 9930 1994 6400 Өрөө сове 0999 


64 дво .... .. © гово пока (064 C99 


соло 0909 Odd ӨөтӨ Gu өтте этэ? эээ? 


(КЕ АСП 
(А CO 
(CONS $ 2 
(1 „ 2) 

: (CONS j 
G 22 


— боча эээ? эээ? 6909 brat эрээ етте 


mes оте әоФе его 0000 гово опоо ccc 


' (À Е) 


— Өэээ етке төө? s... боле 02400 отоо 


9899 274 9409 9049 .... 4409 catt 9854 


а 229 


«езе 49 отоо езге 9999 «өзе 3054 оер е 


(АП 10 


(А BO) "CÓ 


поза 02060 9454 .... 9099 P049 тээ? гооо 


9999 0000 5599 29949 9196 0099 0409 (9*6 


"Су: 


212: өзеФ 4024 0442 0909 0949 600% .... 


C55) 


әз oora oore 0000 оо 9999 9-999 voes 


9000 0999 9996 сосе 4694 s... 5999 s... 


C25) 


, 


9994 0000 9999 coet кеге овоа oote +... 


САТИ) 1) 
(SUEI 4)) 


«тос s 0999 G9 s «өсе 609960 өссе 


ou етсе тээ? 0969 тээ? тээф есеге 6909 


осо 0090 9999 .... 9999 46999 404 9 Форд 


уч! сет 94969 $404 0008 6994 9599 еФес 


«осо 0109 оосо ФЬФВ 0444 6004 өсте 0929 . есе? >... осоо сооб Coca повод өвөө oaoa 


4042 copo 0006 0994 4942 9099 2209 .... 


0649 2000 849 вето Фора софа 9999 9099. qne poaa этэд mtn 6906 620-5 соод есес 


men тото обоа эээ? 094-9 9000 еее тесе 


— осоо 94. 0000 9994 99909 эээ? өтер 


4998 «709 00099 toon 9904 .... овоо өзге 


2940 (0099 0000 түзо орф роте 9499 вото 


жет v... ӨРӨӨ 0000 0999 0205 r... «езе 


овоо otit s... 6945 0904 042% 0022 9549 


98994 9999 бота 0000 0000 99456 0999 өгөө 


оро өзге 0480 toso оеро 2000 9906 оо 


t 099 9494 ^99 459 соод 6920 t... әзге 


9989 9990 «999 9:00 toot 6204 sv... 9994 


. 
Өрөө 0000 9904 9999 оосо веке 9996 999 


9949 072 9994 9999 0060 9999 6100 9029 


usou erts 9949 егес 1899 ЭӨРӨ còrt 9999 


пого 1494 99469 494 4942 доба есет deco 


9589 8999 2994 voet 9966 соо osoo 66ге 


зрос 9999 6606 000% оссо 09999 есет тәте 


(SUR 4))) 


esoe coag toro 9964 0985 9409 ово qu'et 


гез 0000 9999 0404 0000 pooo өсте «54e 


ооо 0059 өсе 9999 oree 2009 P... 995» 


moa 9095 044 оосо s... водо төө. sare 


чове 96609 à 9999 сево 6498 Past өв 


ова ооое гооо 1044 оосо 2404 «ата s 


эвээ s... то эээ? коа 699 0 vort отоо 


«сәс $994 0000 9968 $4099 9 оте ова Фтээ 


8989 1994 9969 299 етер $999 еее (999 


9990 4999 2908 1949 әсте 9999 9999 оче 


2:44 «өөө 949 1600 өте? CETO өле? ове - - 


0110444 Ora сет өгөө Peru 9999 6999 


4004 0006 0000 0900 9009 2402 „оо 0999 


есе? 9609 0900 2079 есеб 09099 этээ 9999 


9609099049 9240 0409 тээд есеб зоорь воо 


форе 0060 9099 0009 0949 PO 04 ессе 5029 


прод «өзе өгөө 9994 о таф 495 $604 4202 


(Зө? °... 9999 орос 0094 0944 4909 $959 


тэ? зөө. 6444 6949 994 (694 69099 гово 
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«ӨРІ 151) 
íL. H C A N O в). КИ X 5555 


(NOT T) ` 
NIL 

(NULL. T) 

NIL | x 


w s. есес 0505 Фр? .... до °. eme есес вод соо «ессе ........ 999 овоо егес s... 2500 (art «өзе otoo 


{NULL NIL) 
T 

(EQ 1 2) 

NIL. 

(EQ 4 1) 

T 

(EQ та IR) 

NIL. 


0000 еге? 0009 9940 9009 9969 9949 өвөө 


-— оные s (e QU. рове әсте asas 0995 .... soas .... onae $006 о-оо ee 2095 етед 2009 төө? 049 «өсе otte 


(EQ ТА РА) 
T 

(ED (CDR X> (CIR X0) 
T 

(ED "(N QO му ном) 

NIL | 

(CHE TREH) 

2600 

(МЕО j 2 

T 

(NEG j 1) 

NIL 


Een SE дело AHSA чытать Sume) ded ара еее гооо соо есес 0040 9095 Форс 096 60649909 есеге s... соло 6090 s... 


"es? s... .... toeo 9049 99094 тээ? во 


«уч тете oore 09 етте ppt тете мое 


аға "f тео. | 
NIL 

(NEG (CIR X) «CIR XD = 
NIL 


w пиче «өсе пода .... еее соло s... mete soue ороо 0949 9409 пове чове 9000 2296 ото 0000 ©4049 9299 9594 .... vont 


(ЧЕС "НО N> (НОМ) 


epe па өө?" 1404 зас? рое 500% 200% т 00 009—0 2054 ола осоо есет вита 0004 ороо осоо 9609 $200 6006 019+ 6090€ ова 
. 


жәке a 4904 воо ээ? 9904 тете еее — тээ? oron .... төре Фото гроб осот $649 vete .... тээе oree DIOS 9999 toor 


(GTZ 10000) 
10000 


w 0959 9999 ороо 4089 9994 veus .... 


— өтесе 4999 ФФФФ 404 4204 0404 оооп 


9666 9909 90049 voon 9100 9999 +206 9948 


m 6944 60909 6999 9960 боле розе 9996 


пове 095€ «049 9960 6256 49299 9499 егете 


men дод өзге .... 5044 5609 дого 9944 


4029 6999 өөрт 9995 .... 9992 голе 9469 


aroo поч эээ әсет Отто 6959 9999 в 99 


(99 есет poet Ques 4... 0920 әзее осот 


одеа TORO тоа? тост poro сове тез 9999 


есте 099099096 оо эээ? соод vere 9999 


чһәс есес осоо 2969 4000 60949 0002 0409 


«өсе 9124 soho 6999 $200 ово өнөө 4959 


прва 0006 0099 есеб brit ооо 9 өөс meis 


«осе 9994 9999 0996 voe 9994 0999 тоға 


од доа 099 0990 оо оо 0999 оозе 


сото 9999 9949 9066 еее 0999 “өөд $994 


1676 зэв? соси s... s... 9409 $4994 эттә 


aros 9999 езте veet otte orog вале 9999 
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2969 асое 9999 0000 9099 9948 өзее тәте 


99069 09698 09599 94509 $994 $006 оосо 9996 


«осе 6499 9569 9099 0999 ӨВӨР 0440 s... 


9999 0900 909494 .... 99560 90999 4099 өч. 


9699 осоо 9999 9499 9002 9994 9660 .... 


оа эээ 1949 640945 пого сове 0443 сеге 


ооо 0499 9995 0104 «204 есес одо эээ? 


өвөө .... етед v... vues босс ooon өзге 


от тете тээ? e$» 0008 C999 воо 9999  — 


950494994999 o9» «еее orea зеет 9999 тете 


w 0046 6009 9999 CURE роте оче quie 


esee 0060 «ээ? 6000 оче 090€ °... 9999 


259% meee 6099 өзес 9990 6000 0006 еее 


9999 9904 nova 6950 440% 6526 0960 4440 


«ее обоо 04045 6504 °... «еее 0054 Dere 


9969 өтес соат 9949 тээ? 9999 0006 ово 


89684 +... 6244 2004 90094 орос пола оогоо 


aoet 0990 1104 9949 0004 9599 970 саде 


поба 94996 өзге 344: 8494 2255 2064 2008 


9999 ç... erve 199» сече .... 0009 поче 


зае 


ӨСПЕ "НОЕ 
NIL 


НОР 20 

(GET 'HOF UN) u 
ч 1 - 

(GET "НОР УПЕЦХУ иг 

NIL 


(CHE НОГ | | 
(UN 1) 

(PUT "НОЕ "ОНЕ Ж!) | 
НОР 

(CIR "'HOF) 00-7 Т ` 
(UN ONE) 

(PUT "ка 4 ВЭ) Я °C) 27232002 
(A 1 R 2 C 3) 

(GET "ка 4 B 2) "ID 


(FUT 751 ñ 2 B> FC 2) ` : P 
(Í À 2 C) 


самт чи өске 4999 тээ? гово есес 6959 «гот есес 9909 CUS осоо осоо тээ? тсе саро ӨРӨӨ есет осоо 0000 9999 sort пого 99 29 0006 409 9949 0504 0009 этэ? әсе e VOTE 0000 0006 сечи 0999 өсте ч езе” 


(GET "4 А 2 в) 2) 


г» ea 4979 «709 pump овоо Ls. queo 9098 тээд 04:63 9994 pang oot? 6920 соге «г.» есес 0909 соба ово 0004 еее соло 4949 1009 9960 9049 0000 9999 pow 9999 9995 5977 004 $999 езе ооо а вове оов 


(TIMES © 1) 
А | 


(TIMES -1 -1) 


{TIMES 4 2 3 4 5) Е na =e 


й, 
120 
та 999 кезе s есет авоб сега өвөө сост ото села вове есеб 9999 419 099 tes 2416 өвөө 9299 2004 өвөө 9406 өвөө 4999 соод осоо сро отче 0004 9999 9029 поло — тээ голо 004 9450 0044 


(FLUS -1 =1) 


(FLUS i 2 Z 4 5) 
15 


(ZEROF ©?) 


(ZEROF 1) 
NIL. ` 
(ПТРЕЕК 3 5) 
: -2 
4— 


(HIFFER 2 ©) 
а А о 


- eC (URS ессе Фет? ово paet Cert төвөө mes есес s... (4-9 есте есес 000€ огоо 8996 (906 9944 9999 0999 оро 2999 «ете заба 2949 0000 r... cort 8449 6492 өгөө "Pee есес Ри? 6029. 9409 9049 эээ? 0204 


СЇЕРЕК -5 G) 
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-10 


4999 wet oers оға oret оова 9996 .... 


(QUO 21 Z 
7 


ж.с вето veto 9990 «рээ? 6049 rent 7994 


(QUO 2i 5) 
4 
(QUO 5 21) 
O 


саға (ооч 9048 9004 овча ӨВӨӨ оча .... 


«КЕМ 10 2) 


Q 
«КЕМ 9 2) 
1 


мило нээ? 9404 0044 0... 1094 .... төрөө 


(КЕМ 2 9) 


T . 


de 


«090 пола сес эфод ово 0404 SOAP ова 


(МОМЕЕ 15 
1 


—— дала олса зээл Өмнө пом овоо әсе 


CNUMEF 7440) 


МТ, 


— өвөө et дава оа ээээ оеро әсе 


о» 9949 9604 6444 9000 9109 4444 .... 899 өзге 4999 9999 arte ороо 049€ еее 
к 
` 
«т вање өөд. s... 9949 s... села өзде 499 8990 20046 9996 өз6е0 төө? пъ .... 
«әс» sas sv... тоте s... reat 9999 9499 (ees (900 0004 есеб 4999 oore 0299 9999 
ороз 0959 ороо 0499 bout 4... +... L+... 9:40 өзте 4960 8946 9964 өсте нова ле 
8894 $994 Фе. 9049 0694 9009 доо men 8894 #449 1104 9066 8226 9490 оде өгөө 
«e 9079 ӨРӨӨ роб соло 0520 9902 өвөө 2400 2450 0005 ээде езге $090 s... пого 
eses 444 944 есе 9950 9099 төзе dooa 1140 4094 0944 өссе 0004 2996 оче 9909 
өзе 0919 atad 9049 5044 (999 Фото ooon 9 0999 0460 C998 есек өдөө төсө #404 
гово софа өзе? вање 9094 6449 оеро 9999 Web эээ? 040 q етте 999 9564 999 0 «әсе 


£NLUMBFE (СОБ 165722 


NIL. 


Фо ессе 2404 елге s ооо о «044 «есе 


(GT 2 1) 
^ 


deo 


ака peoo s... газ? еа prot 95948 ессе 


(GT 1 1) 

| NIL 
(GT 1 2 

| ` NIL. 
x (GE 2 1) 


2 


жоса 0098 1409 оова 60+ отыб оо 2099 


(GE 4 1) 
1 

(GE 1 2). 
NIL 


тоа 0949 9109 подо 9709 0999 .... етте 


ат 2 1) 
NII.. 

{LT í 1) 
NIL 

{LT 1 2) 
1 

(LE 2 1) 
NIL 

(LE 4 1) 
1 


«mee эээ? есес ә вес ела эээ? cont оте 


. 


сео 1044 940 өөд SNS сега 1008 соот 190 ора оозе өзес (i$ сого 9009 mee 
ЕИ 2... 
+ 
теа өссе ооба осо 5400 0648 оче есес | D 
8844 0044 ора 9099 500% 0409 очев овор ш 
9600 ӨРӨӨ beet өсте s $009 осоо тээ? о 
ттт штээ 
о Dee 9444 гено 0044 4100 9444 4444 вола 
ши emet 1148 0090 0008 эээ? 9949 °... өгөө 
Te 
mag поле pedt 054 төө? өзес .... 9904 eret подо vost оона на осто вате вове 
Џо 2042 ... cèri есте puet 4 өсе сече REN 
2 48480 2004 0949 поре 5990 9906 eoet офот 
«әйт тээ отог 00989 0694 5506 өгөө 9944 тае опро 9949 тесе 2799 егес гово 9999 


esoo 9904 0000 9199 2994 8494 өзее eote тов 9400 0000 4909 ^ev» пово 9904 9944 
"99 1904 0904 1449 эрээд езбе 200% жоға 4006 4049 2000 0996 9459 бөөс Өвөө P998 
са 9999 0000 9990 opoe отоо өте» r... | 21 | 1 | 
mee вото 09094 «вай 5995 эээ? өөө. #6. Е. | 
0949 9109 фото рове оосо ето: .... +... менее | 
ооо 6499 вод өгей 09269 9999 9409 голе ES - 
А sued | | | 
ООО 21111 и | 
| | | 1 ` : | 
re 99099 $090 тесе 9599 T - 2649 тоа оџа Фере өрөө wet oves emm m | | Е 
ЕН 7 | 2 ни хоо . 7 
Дорс а ые | 2 1 
ча гово _ ее 2 > " Е _ шэн - | | | 
"T nid AL 
Ч а Aedes USED о see ss = + - > 


әсет crve 049 9909 9404 9404 о әзге 48 „ора 9400 03499 езес есет 0909 өсте d 
2 ч = ж - 
E s.. - - = cr 
8808 0004 гово 0000 0928 0968 9999 өөө 0420 9100 C099 s... төө Hurt 2008 4004 - 
ж В ы =ï -- ще <= ice 
- $ - .. 
- - -- ' хү... 
we. 9969 977 9949 669% 9-94 өеез cote себ 0994 099: 09499 9950 6999 6098 ss. 
E IM Ru arse lis 2 7а 
- -- + 4 > > аж - - 
4899 ӨРӨӨ 0000 POO роо SONY 9994 (999 «рос өте? 9994 .... 0 өсе 9996 600669 ісе 
- . - - 4. 
4 - 
. 
9899 0997 тэээ Фото оро 9999 +... „то «99 тээ? 9048 вото s... оте tet °... 
«өзе тэг? 2064 1979 QUA $. 0956 ооб өгөө осоо 1482 ог «сез 1006 засв пое - 
De Фэтэ Pen) ө40% 9400 «сег (o4 өше. — өсіп өөс C024 оче #945 0004 еее 
чове рода c тээ 9909 b... оеро 942% отоо vant 9974 0999 пого эээ? 048 s... 
0e caut «еее 9909 (994 бота 4960 6940 0104 9998 89006 0097 овоа огоо оосо төзе 


БРИН 


СЕ 4 2) 
1 — 7 


— 49 0502049 мод своп еее еште есте рото P969 0609 ес (509 пов 0499 eut 6744 esc 0 4059 05699 9509 424 > әзге wa "a 5948 s... 9064 2994 6956 әсте оче 


(АП 4) 


2 
ао : 
` 


^ < 9440 (900 C099 6969 ооо о Gre 49-09 0949 9109 9499 сове боо оеро овоо anoe 0940 0000 0999 s... 1904 9999 езе? эээ? 0044 (499 9599 0960 9004 990% 9904 


(50811) 


(ADI -1) 
о 


— s s пове s í ола $099 2094 .... еее 99099 94569 60906 0499 panc 9999 9909 6099 9994 orts есте 0004 0949 009 0044 909 0049 9096 994909 4999 голе 


(SUBÍ -19> 


ère | 


е 
a 


e esae am D s... сотре џово сата ФтэФ we сето 4404 00099 0099 9999 ӨЭӨӨ ое тэээ 9099 0000 ^99 $099 9949 өгей өзде 9000 9499 төрө 0499 t... 9699 9999 төлө 


(FROGN (ВЕТО X "а B Œ) 
` (WHILE X СРЕТНЕ (NEXTL X000) 

^ B C NIL 

(LENGTH 744 2 D) => 

3 


w «ее» ->0 09-9 coat 0009 .... ооо эээ? 0994 9909 сора 9999 09996 сече °... e$ 96€«9 4000 (90€ 900 9956 9000 ерөн 1404 orpo 0000 9099 voto 99:89 6904 рота 


(LENGTH МШ) 


w —— фано дод жест s s.s еее «e 07 +è VO өсте тост ӨВӨР өсі оле 9999 рээ? 1909 ото vet өтте одо 5940 <s. әтез 9900 ӨСРЧ VOX? 99.9 9099 тәте 


LNTH j "ка B С)) 
(а Е С) И 


49 Өвөө 8499 сеча фэфФэ тээд 809 pens os ene Фе водо vert одл .... 0004 «өзе 0000 0496 9504 (609 мо 8860 өвөл 8999 99990999? 2000 9544 949€ 9499 9944 


МІН 2 тка вс»). 
(в С) 

(NTH 3 СХА В CD). 
(C) dE 


e» ase °... voue 2006 осо эээ? оо 4869 9999 өсте тесе «әсе елес 949-9 өте тео s... 9904 төс po» 6 9694 9040 Розе 2444 өзеб .... r... 9999 054? 90509 Бөз 


(МАРС FA в Су *PR1N1) 
A ВС NIL 

(МАР ТОВ В CO "PRINDD ——— I ` 
(а H C) <Œ C) (C) NIL 

«амп (RINI 4) (РКІМІ 2) сретма 39) 
1233 


2..0 очно 02090 сове оеро сосе =E = тото стое өсес өсте тээ? 9999 оов өөө тээ? 0099 оосо «999 0060 «Фо — 9999 0499 «әзе 9904 9999 өсеб 990€ 


CANTI (PRINI 1) NIL РЕНН 20) 

1 NIL 

(OR <PRINI 1) (FRIN] 20 СЕТ 255 — 
1 1 | 


P 8940 s вола s жаза Фото ФээФ € s. 09 +402 casó $699 0400 Gan «Гоа 04999 6459 6094 0449 990% то s. 199 9009 әтәс 699€ e 999 гово 2960 ӨРӨӨ 9598 cave 6404 64949. соло 6699 9940 90909 -~ М 


(OR NIL NIL (FRINi 1)» 
і 5 | 

(SETQ L СОО» 1 

(NII) 


ерээ aee 009 Q9 ово O Guo s «кес e оосо QUES 0600 °... 09909 өзге соро огоо 949099 002949 9009 щот вото сече са ее 4009 .... 04909 s... алад 6009 


(ЗЕТО X D) 


-—— — s s босо ме mep 9944 s... .... 0060 прав өсе әсет чә әс өсеч 9999 0099 094 .... воо өөө, esea 0949 494 обоо v... 9490 вола 9959 


WHILE (GTZ X> 
СМСОМСА L. «КЕАПСЫ92 
ССЕТО X (SUBRI ХОРУУ BRAVO 
NIL. 
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anso pont 0008 s... 0449 2406 4994 #250 


0404 0009 соро 0999 есей осоо ӨРӨӨ отъ 


роо 9999 04944 9478 доо 0999 есеб ӨРӨӨ 


8809 Фог 99949 0995 V... воо 99960 өгөе 


999 9990 9994 2599 өссе отоо *... este 


98969 Фев тэ?! 9654 (998 оосо ооба 0460 


9094 4409 9999942989 4948 99699 соло өзге 


w. 0009 әзте Q... 2040 00504 вое 2006 - 


чо 69 00999 vett 90699 s... 8494 0000 коео 


00:10 2889 9069 44699 6944 09999 9999 orot 


0404 9004 4048 өте? 9504 .... өзе 9995 


94899 0499 тээ? 9999 .... голе орот 9990 


mat «зат 0026 .... 2456 6404 & 069 өзеф mes 4996 9059 0060 вод 6992 тов. егес 


(CHR L.) 
ЕК ñ V 0) 


96 ораз tote t... 909 .... өте 9999 209% 9900 4999 тээ? eme оро t... оров 


(GENS YM) 
60001 


aee 9947 0994 9444 елес P994 4 904 тээг ensa поле еззе 0906 9969 Фөт 690€ 999 


(GENS YM) 
6GOO007 


таа трос төсе өсе пали мозе года oont ..по өте v... 00994 9994 oree 9999 =... 


¿EMS TM? 
6000.5 


Don олоо + 099 под зада 6404 20944 вува еа +905 .... 9099 9989 99449 0059 ом 


(ОВ. IST) 
(509093 


т 00 гай» фета taoa ете4 toeo tore вед 


сосо2 60001 


өс дове 04099 Dure €64— .... 92659 6900 e 0900 0006 0995 omeo гово 0960 0-059 


(LENGTH «ОРІ IST») 
24 


£3 5) 


(REVERSE 
(Z 2 1) 


w өлес 4429 9994 «ето есет 9499 "999 прое (99 4499 (499 orte seto есее өзе. 


(SUBEST А i TEL (1 
(а (fi 2 À) A a PD 


9898 эээ 295% 2005 1640 өвөл s.s? вола. 


144 0600 2999 0999 өеее erro 0050 ӨРӨӨ 


өте 9609 6960 coot cooo pato 2020 өвөө 


срео дроп өвөө 4094 2004 6909 5649 6996 


w. 9999 2000 беда .... оосо гово әбез P$ орет боле 4... 9490 4044 2444 вове 


«94 9094 ooto voye 90996 6094 0009 .... 40-99 0049 есеб 5906 7009 0000 9400 woog 


#9: 4009 proe ve^) 4... вола 4199 mese "$99 0191 $049 200% вола $490 9604 +... 


VOR ONE 


Т1600 LISF TEST) 


ото воо 9994 сево $404 оо воо 0009 2994 өзе» 6944 0999 9499 °... 0564 .... 


eres 9904 ово s. booa 9099 «004 «еее “өш £99 C94 9900 9994 9994 (^49 өвөө 


59: 1049 9999 5000 0-9 эээ 9946 реро 2800 —999 0000 90009 09299999 вето 9999 


212 4 „1)) 


«ко 7—09 эгээ тээ? 5909 2004 C049 >. 


МЕРИ 
(B C 


en эзээ 7000 Фо «оте 


"B * fA B C ID») 
Ji г 


поче горео геге 


ss тээр 9999 өте vot: 0999 тоос 9999 тоге гээч (099 сотр 0000 2570 вор 0999 ө%ФФ ое зо 9999 воа 2909 5050 9099. 0948 


7 (fí E C ID) 


ames 9049 ЗӨ? Џудо тай пов ороо төте meo 9e 94 оозе өссе отвор 2243 есес 6909 


(3 Е А 5) ы. 


— Фэээ 40-4 9544 ФФ. s s s соса осоо 9799 елес Фото отот өФее төө? 004 (995 төзе тээ? оро (09905999 пого 


(SETRIT 12) 
OOOCHH 


Ce-— — 9-9 Фоче озат почи Pato rue wa 977 «999 PE эФее 999^ aret гово эрээ v... 6999 осо пове „од пози еба 


Обами OF OOHH сочи НО 
ОБООНН j 


— «есес вото coan see wma s“... еселе 1:96 o етед оов = Фе 0909 0099 s e зора 9994 есес Quam 2995 6004 9979 


(LOGOR FFOOHH ООРЕНН) 
ЕҒЕРНН 


ә — a—— s «лес s «тео vede — пого s 2949 ооо «094 ооо о өсөв. «оте езге s ss s овоа есеб гово 


(LOGSHIFT ОРРОНН 4) 
ЕРООНН 


e —— oeoo елес cam сата Фано өсе w. +... 0099 u... төөе 9999 0099 ое 9409 0990 оеро есеб ores веле 00900 


(LOGSHIFT OFFOHM -4) 

` OOFF HH 
(CLREIT 12) 
12 

(SETQ L "а ВЭ) 
(а Е) 


+ 


чат? qu^ se we есес ee пого s чо 9004 2442 есес роза әсел $699 отот 


w өсес c4 озна ээд ешо о етте ооч — ees opaa £099 9906 9449 ores 6999 


+ маче слад | —— прав — P. pm 4 обоа epee прое пого овоо вото тезе 


(АРРЕНО L 
CA B C ID 


— меша s... ооб Ф вото отео vae өсе 


Vy £C ID) 


eae әсер тэрэ sora 9949 $095 орао сво орос 9906 0909 $999 $46 6 9794 aeee ocot Р 
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" ente 2194 өзар оосо оова база соло төге 


e 6044 .... төсөө 094^ 6999 9956 595€ 


тэрэ v... 606% y... эээ? 6048 teo еже 


эт софе 6497 тээ? эээ? h... oreo Vote 


#4 сево овоа соод 9999 94999999 пето 


пра оозе 0909 ете овое орев tote гово 


чао Фэээ ессе ^9 pore 994 Фтээ opes 


«езе v... 9999 тээ? гез 2994 90099 тээ? 


4954 cera mots vent stoe тесе есес sont 


«99 +... 8605 b... 0600969. 0*9 9866 вове 


= 


кл 


“оо 0444 4804 0006 9998 ouae 9009 0909 


405% «9949 0998 98985 4994 4445 доо ӨРӨӨ 


е-е »909 orea «949 4704 осот 0459 9999 


4000 0669 5006 9944 6499 4904 otaa $496 


0099 0006 6409 99.6 996€ оосо 9999 әзге 


Li 
чо оа 9949 рото 94699 9900 peep .... соли 


«сез 0600 Ф200 өтте очно пове 6599 өтте 


«990994 .... Ceap 4064 Peut оссе «теч 


өзге .... «тоз 90999 5949 9990 toas .... 


98990409 есте 4944 поа: 9004 $994 .... 


99 6000 00909 600909 8886 гето 9099 5296 


996 9979 7998 09096 пока өзге Pren Pre 


c9 6 өте 9909 poao 9909 9090 еее Өвөө 


тагт есер Vert ете з Феде «998 oter .... 


проб 0999 ӨРӨӨ Фото 9999 ора 9909 .... 


тоа 0994 s... 2004 овоа ооог озод гово 


-— ода тесі tant офор 9999 9496 етед 


4404 эвге соте otos 56909 s... 9099 Laga 


=з» 9969 otop 6944 9099 .... 0009 езге 


DEUX UN HOF L. о CANO R ). (Z X 131235 ОАЕ 


(АРРЕМО L °C) 
(ав. CO 
(NCONC L "4C IO) 
(A E C ID 
UL 
(A E C ID 
(NCONCi L. 'E) 
(A H C D E) 
t. 
(A H C H E) 
(NCONCI L. ' Œ G)) 
(ñ R C DE О; 
А | 
( R CIE (F бо» 
(EQUAL 4 1) 
E. 


mu ата 2000 осто cart quoe ооох тэээ moe «езе 0006 о-во «өсе 0432 99 .... 9899 өте тээ? оосо .... 6000 ово 5499 об 1909 4494 9990 $999 сове pous оов ое 9049 (499 906% өөө. 954649 Өсөн 0040 


(EQUAL та га) 


«на» 1509 өзе s чета саго «өте ve — 9099 749) сала +208 одеа 0424 пое соса тэээ орет 90 водо 444 0-09 соот сосе 8699 0444 өзеф 4... € 28 есес өзге «сәс доев $400 пого пого ао өзге веѓа 


(EQUAL. 1 5) 
MIL 

(EGUAL. "А ' EH) P 
NIL. 

(EQUAL "Ха. ВЭ "Се. В) | 
= 5 


«ea 1004 00908 dons ooe 9762 тээ? oroe 99 99090900 өөс. coas 8894 cott 990€ 49909 9099 0949 0040 2000 2098 оос 9999 9994 pres 0949 особ әбей 2499 6040 9998 2949 6909 опоо 0060 992+ 0200 9:04 рела 


&EQUAL (OHLIST)I «ОНІ 16722 


өрөө фар эээ? вања есес есте егес 9979 тээ s есет» пола оосо 2049. 0999 9999 € 0099 есес есеб 9999 0999 04-90 9094 «00 сове $406 9994 0009 огоо 9996 тоз» 99 1992 доба өзе 4999 9900 сове 9900  — 


(EQUAL " (E . COD "га (ВО. 103») 
NIL 

(СЕТО L ка R Су ПЕР) 4G H 1792.59 нэ 
са R Cy Œ E F) (G H I) J 


«со I... —— < os 0 CRE сов соло өзее 0909 ee 0996 осоо 9999 «949 099 9099 0949 1999 cuve 9999 otop 99099 6099 соод 9999 949 0006 этэ? 6066 6996 босо 95009 төвд = 


(а ЕС) 

СПЕ |) 

(СПЕ F? (G H I) Ш 
(CAR |) 

А ` 
(Стек |) 

у (K С) 

САШЕ L) 

ПЕ Е) 
(CEER L. 

((15 H XI) J? 
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ны 


-— 99. өсе» s... eom 1744 .... s... 


(САТ L) 
(G H I) 
(EALAR L) 

B 
(CAADR LS 
Ti 
(САПАПЕ 1.) 
Е 
(CAALILIR L) 
G 
«САТЕ L 
H 
(CAHIER L) 
J 


B 
А 

в 

(LISTE 1) 
Оны, 


то — o аны? оёх эмир аста 


HIL 
(LISTE ” (ô 
T 

(SETQ L ” (< 
(CA „ 4) 


а = 12 
(Cassa ТА 
1 


ча нед seta ээд тээ? s зал Dent 


ASSR TH L 
NIL. 


эээ оогоо вото вол 4409 эмээ ... әбей 


(CASSQ "Ti 
NII. 


рео — эээ 4999 #94 202$ +Ñ... 6048 


(SET (ASSA 
I 


сб 999 Dun Фэээ әдеб воот овое овоа 


4m emdd .... Opoe оома s. svet .... 


чове 0998 өте. Ооо 6494 9006 2404 2029 


— "s дове $0069 (^66 ӨРӨӨ 9996 2 


эээ? 441 9408 0900 поба otto 9999 047? 


8598 пов ones 8909 ooto 94959 918 сова 


Don фо а есеб #009 2044 8999 $999 өте 


зеге 0994 409» 8944 #054 8950 9989 «tea 


2 


что» w. өлет pas 9999 9999 .... ее м 


aee овое $009 веза 2044 m. 4629 s... 


470% 2008 9797 evet sort poro $495 997€ 


429$ өсез 2049 пора овоч пето Фэ?Э жәе 


R)? 


w. 999 вече 0099 6109 9424 0444 raan 


(а a 1) 


(Н. 29 


«#6 994 есет .... став отоо crta veea 


|) 


кс Ф000 «осе есте proe өзес eret + ae 


) 


wa. 9926 .... тээ? вото өсте есес eov 


1.) 


«сәс 9999 0509 сода s. сове реве 0999 


esee emot пола apor 0999 6949 9996 0999 


999 s... эээ? soat доо «224 гово ооф 


45-94 9996 Фэ?Ч .... v+... 9699 „ово cove 


49 09 9009 езбе 0000 0000 төвд P999 голе 


об әсе? epet 0099 9949 etat 9794 992 


18 99 9999 9042 0000 tere 0499 479 өөхөө 


0024 2998 9094 404 ооло DOR D 99989 oree 


пода 5999 9942 дове 2540 9984 «954 .... 


9194 есе” 2969 одеа °... 5056 2006 2995 


мече осоо 9999 otos 4900 0040 0999 оров 


asne 02448 онда 0403 доза 0440 сало овоа 


CH „ = (C 
(С a 42) 


69 «еже 2794 оосо фафа 9094 pett .... 


соо рота 9400 6968 s"... 0990 $499 воо 


елес го 4498 вото 9216 wta .... 090% 


«зө? 6000 oed әсе овоа 990 4494 0050 


С L) 70) 


«рег 9499 (999 ооо эээ? «кес .... софе 


«кте e s s C00 s. еге 


ere asco езге cons сове 6409 2048 .... 


чело s... nnee oree сота osos (999 .... 


emee oroe ова sase 98484 0490 6942 вола 


тсе cabo есеб 9009 9909) 6946 0949 9906 


9649 0066 808990 9966 orto 0090 0066 oou 


ороо oota 86096 0006 9009 0909 0090 жете 


99099 49949809 6544 04242 0469 пого 9922 


cebo 6099 9508 9400 609% 9949 8090 ooto 


сеф өөд 9990 өзге 2009 sose «өл? өзее 


егес ээээ 0400 9995 5006 0999 веле oeeo 


ХХ төс! tota 9992 5096 1949 99099 +... 


— этэ? өсте QUOS r... 6599 9039 9299 


9000 9999 9499 0000 9909 9999 99 9$ тезе 


«есе бабо (9490 зата 0949 вола seno 254% 


. 4299 


9990 9949 9999 «994 9999 «909 тесе пове 


тосе гото сове 9994 Фар »949 овоа .... 


20% 9978 oeoo 9999 oves s... өзе» ++ 


— 9992 0919 тээ? оро s... 0999 отео 


оос 09986 090% ообо горе водо егес 9996 


оо 0999 9994 9409 .... сог сече otoa 


е ое отто 9999 сове осте тээд осоо поза 


(RPL ACA САК СЕК (SETO X CAR) D) 


САК 


4 эээ" зээ? РээФ PUDE v... әзес отео 


-ее есес Com) 994 pase (064 оого mon 


(CAR '< В CoD 
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себ есте поез 1940 9399 9:90 осоо sow 


(ues этээ 99229 w... -... өзе .... otot 


09 өзге 0994 0499 6442104 5205 возе 


^ 

i- 
1 

9909 9900 4709 9999 6000 пове 8994 «099 


89846 9404 9999 1044 2069 2999 9459 9098 


ӨРӨӨ 9999 9949 9049 есеб 9495 0999 .... 


anns 4926 Өөө? 90909 доа сода Фебе оосо 


9999 0000 09999 0999 0060 v999 фото 


таа. 1008 $9449 2099 9060 оосо поба 9000 


оого 1499 9904 9999 0000 9990 ӨРӨӨ өөө? 


€ 99 0050 6006 9949 одо 8999 2004 .... 


тээ? езбе өөө, 2496 оого оого егес 6409 


2004 0006 .... овоа вове стое s... s... 


es acne 6004 $446 8.59 8894 өгөө $026. 


aec .... 018 9995 9099 69698 9549 өвөө 


че ооа џам 2254 86684 0494 5048 өвд 


best есес 0564 9409 сове 6964 0009 5000 


— 9499 зөө? Gren есес 6999 осоо 9200 


сев осоо 0044 зээ? .... „об 9944 3500 


et rocs эээ өө» s өзге s 


4504 0999 9555 ooet 89490 9406 9999 зеге 


«292 .... 1498 2412 Әлес њозо s... өгөө 


hh 


M 


- 45 - 


(R C? 


Ma есес 909 (UNS 09-00 9099 .. v. «рое чов 6009 росе cre о .... tose 0000 гово а 0000070 b... .... 0995 oote 9994 эээ тээд 99499 4924 «795 орге .... +... 4946 ӨРӨӨ 9999 0509 0154 сево 0999 099€ 


(RPLACA "сак XD EE 
CAR нэ . аа а О 
(CAR ? (ôA В C») | | "EP ОО 


4869 e. оосо өсе» 2094 өвөө олер өле D = 99 proe одо 0 өзес cers 9999 9999 s. «4 тээд oote 0000 0000 opoe оче 9099 9699 (9994 овоа 44: 9949 9900 796 оет oore оо $000 99099 99909 эээ? 9790 oore 


(ШЕ SORT L ЕВЕ к СЕА 
(МАР L. ' апамвпа OO (AND (COR X) 
(MAF (CIR X) ”алмвша СР 33 AUX) о 
(AND (GT (SETQ AUX (CAR ХЭЭ» (CAR YO) 
| (SET X (CAR YO) EE 
| (SET Y 6022200202 ` MEN 
L) 7:2: 4172 а 
SORT | | 


. 
точ тээ? enap .... e» әбес 6666 ова тээ? овла .... .... Qua голо .... Өвөө ее егес 0999 099 v... 8944 9499 зөөө 8809 s... 1048 .... доза 4006 0909 .... 0014 .... оо оо $604 9420 ооо сове “s. 


(SORT 1097 8 & 5 3 41 2) Ё NM 
(L 2 Z A 5 6 7 8 7 10 ССС ОЕ t 
(PROG (X Y) 55 cx = 2 
(SETQ X 3) га. мэ 

(WHILE “GTZ X) | poe C. ТИС 

(SETQ Y 2) | эрэ 

(WHILE (GTZ Y) Іі аз 2. - 

(ERINI X») (PRINT Y) => 20 

(SETQ Y (SUBRI Y>) 5 Таза”; 22-09 

(SETQ X (SURI Х)))) 


-- шаг = 9 —. = -- ana 
= +. - se 
—— 9 . 
= - t- 
- - -- --- — 
- L+ ==. --- 


EA ма Ку Ка Ú 64 
ымыны 
| 


Z 
егі 
pr 


(COND LLL 
({GTZ N) О мисс 

(HANOI (SUB) N) DEPART INTERMEDIAIRE ARRIVEE) >>> 

(МАРС {LIST 'LISGUE М "ПЕ ТЕРАКТ 'VERS ARRIVEE)) 'FRINI 

(TERFRID нэ 


= sus ---- - 


(HANOI (SUBI М) INTERMEDIAIRE ARKIVEE DEPART) DD) : 2975277 


warna — + 


HANOI 


(HANOI 4 ФА °С ” K) | ии 2-2 очен аа Т 


DISQUE 1 LIE À VERS C ua ro ЗЕ ш ШОШ Тот 
NII. | нэ Dune een | 
(HANOI 2 7A °С Е) | 5 
DISQUE 4 DE А VERS E | О: ы ыт 2128 шу у 
DISQUE 2 ПЕ А VERS C | | эээ. 
DISQUE 1 DE B VERS C ` | ! 2 "emm а V ad 
NII. 


: СНӨМОТ 2 TA "С TE) 


LISQUE 1 ПЕ а VERS ues 
LISQUE 2 IE А VERS : 


hISQUE 3 НЕ а VERS 
DISQUE 3 DE В VERS 
HISQUE 2 IE Е VERS C 


С 
n 
. ,LIISQUE 1 ПЕ C VERS E 
C 
ғ 
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DISQUE 1 PE ô 


МІ. 


VERS С 


46 - 


(HàNOI 4 A 'C FR) 
DISQUE 4 ПЕ ñ VERS B. 
DISQUE 2 ПЕ À VERS C 
DISQUE 1 ПЕ В VERS С 
DISQUE 2 ПЕ A VERS В 
HISQUE 1 ПЕ C VERS А 
DISQUE 2 ПЕ С VERS В 
RISQUE 1 ПЕ À VERS Е 
HISQUE 4 ПЕ а VERS C 
LISQUE 1 НЕ ВН VERS C 
DISQUE 2 ПЕ B VERS А 
DISQUE 1 ТЕ C VERS A 
DISQUE % Lt В VERS C 
hiISQUE 1 НЕ А VERS В 
DISQUE 2 ШЕ в VERS UC 
DISQUE j ПЕ Е VERS C 
NIL 
(FROG 4) 
(ESCAPE НА ІРКІМТ 19) 
(PRINT 25) 
i 
2 
2 


ярань v. ақыны eae du^ си «ба s“. моча qi né Фаза 9529 D... vtt овоз өөө? 0899 $409 9909 0449 ovet € 999 core вло өс 5.04 Фтээ дела 0499 .... 0900 геге Foer 90 4499 9999 avea «әсе этэ C099 
+ 


{FROG ОФ 
(ESCAPE Н (PRINT 4) CHI (FRINT 2200) 


СЕТО X 2. = 
3 
(ESCAPE Hi 
| (FROG O | | 
А “ (ESCAPE H2 (ОК (GTZ X) €H12) 
Е (PRINT O) На)? 
(PRINT X) 
(SETQ X (SUBI X>) 
(GO ADD) 


ХЕБСӨРЕ Hi 
(-SCAFE НО ' 
СЕБСӨРЕ НА 
ESCAPE На 0832) 
(ERANT 13 Ні 22) 
СРКЇМТ 322 
1 


ғұ 
d 


Aa Gud Ó. ss Алма s s... 600 08685 0000 эгээ эээ? одев вото кебе сафи Cas 1094 ан Pad вања w... .... пола a vont 6944 0001 4408 0949 дове зла косе 9999 9709 өссе 0445 пола рока s... 


(SETQ X 3) 


- 17 - 


ESCAPE Hi 
("ROG O 
А (ЕЗСАРЕ HZ 
(FROG 0 
(ESCAPE HZ E 
А ("ROG © и 
(ESCAPE НА РЕНА 
| | ("ROGO (НИ )›)›)››)_ 
' (PRINT 12) TG 
(PRINT 29 (НОУ) | 
(AMD (GTZ X) (SETG X (БИВЪХ»» (GO 4))) EN 
(PRINT 3) | 
1 = 
2 
1 
я | 
2 
1 E" 
2 
3 Га 
3 : А 
(IE FORMAT (L NC МА. 33 X N) MEM 
(СЕТО X 19 (SETO NN NAL) E 
(WHILE L. uu 
(TTAR X) = 


(РНІМІ «МЕХТІ LI) (ВЕТО X «PLUS X ND) о 


(SETA ММ (СОН ММ?) | 

(CONTI CCOZEROP ММ» CTERPFRI) 
(Оқ (ЕО NN NAL) (ТЕЕРК122 
T? 


(SETQ NN NAL) (SETQ X 1) 


... 
< < 
^d n =a = 
-— 
2- ----- 
is 
> muse мз ame 
=. -—— 


FORMAT ` | шиг лә.) 


(SETQ X ó) Хо 
ELUS (LOC. NIL) Хэ) 
(VAG ҮЭ» (SETQ X (FLUS X 423) ” ` 


“өз e пое s 194 $249 поло зам соро төө. 9960 259$ 1904 2491 овоа 9 е 98969 0994 0000 овоа етте езбе 2506 6625 


(FROGN (SETQ KES МІЦ?) 
(WHILE (LT (SETG Y 
(NCONCI KES 
(FORMAT RES 10 799 


(атпа (LOC "8YS3II) _ 


NIL 
RETURN 


REALICH 
REVERS 


Е. 


QUOTE 
КЕЛИ 
PRINi 
GTZ 
СЕТ . 
ПЇРЕЕК 
LT 

VAG 
СӨТНИК 
LISTE 
SFACES 
SUBST 
SE. FQ 
ОК 
АВИА 


9 


атом 
ТЕКЕКА 
CAR 
РОТ 
RUC 

LE 
АРРЕМИ 
салих 
NCONCH. 
TTAR 
Сапа 


EYAL. 
ЕРКОВБМ 
DOBL 157 
СЕК 
SETEIT 
LOC 
ОСМ 
ЕССІЗ. 
C AUR 
МСОНС 
GENSYM 
LIST 
PROG 


ОРЕНО Di 


APPLY . 
RPLACA ` 


NOT 
БОТ 
CLRHIT 
КЕМ 
L.OGOR 
Семак 
CAUSIR 
МЕМО 
FABE 
ПЕ 

СО 
CONTI 


STE 


ame amado xs ӨРӨӨ s есес Dena — — есес есеб ессе s ээээ тээд вање a ото 991? тээр 949 Фээ? есес есет 96:64 есеге 900 4994 еее 04090 есес еее? пове өзге .... өзі 2000 өвөө .... 9900 


(CHAR 


$ 


(LAMBLIA 655 


RES XO 


FUL IS 
КЕ АСИ 


` NULL. 


SUE J. 


TIMES 


НОМЕР 


---- --- 
— - ee n a А me n 


-. 
аад ---- 


T8070 C 


CONS — |. 
ER А 
SWITCH | 


C. PLUS L; DÉ 


GT 


LOGSHIFT LENGTH- 


CAUR 
Сает 
Мағ 


CASSA | 


ПЕ 


-ЕЗСАРЕ 
Т — E 


Y ( (222 
(БЕТП X 
КЕС 


(SETG RES 

СУНЈЦЕ (NEC 
СМСОНС1 

RES») 


(Erti D) 25) 
X2) 
(CLR 
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CIAR 
МӨРС ` > 
"доба. 
` FROGN 0 
[ CESCXXZXXC 
_ EXER __ ` 


+ = — = 


2 


1 


TES 


` 


Е 


а 
” 
- 
. 
F 


КМ! 


. 
- 


INTE 


.. 


+I SQU 


11600 1.1 


... 


10) 


=. 
k 


f 


Q 


4 


C 


w. .... ороп 0009 6060 9499 5056 вове 


“y 


99886 60699 9:09 09690 форе 06:60 9644 .... 
D 


әтеш бода s... 9440 0599 sone өвөө оозе 
ороо 9099 ........ -А эээ? Өөө. .... 
9999 etor ooye отет 0949 9999 0099 .... 
тээд 9949 toop тус? 0045 вото .... 9^9» 


төө. 


на HZ H 


„Г 
22 


МЇ 


` 


Dor 
) я (/ 


овоа 98066 сево tree P979 өөө? 49:99 вола 
» 


8589 07000009 oosa өвөө 9469€ .... coop 
0.99 фофо 9946 tovo 4904 0999 otes 

9999 0090 9559 0000 6409 #999 «979 сезе 

2019 0009 9999 ocon octo 5999 «99 9999 


МАТ 
c» 


} 


ѓа 
Gé 


1 


ү 
4 


” 
. 


I 


4-2 


се 


м 
m 
1 Ко 
А 
“х “y 1 9 | 74110 ll 
; Ши 


CE 
а 
% 


зу 
? 
[t 


Ea. 


> 


N 
dm. 


4 
ен 


ки 
" 
74 
' 


ХЭЭ 
244 


Le 


iu 
ЭН 
Бу 


M ж ы 


+ ты, 


w + 5 


... 
2 
>” 
. y 


i 
m 


a vk 


P 


В 
. 


es 
4 `. 
ES 


ж 


` 
du ы 51a 
(yee | 
< 4 
> ақы va 
Ji 


1 { 


л Л PS А 
Pa: гд Ад 


а 


А 
wA а 


zn 


NW 


р 


» Қы 


4 


| 
4 fà 
Й 


МЗ 
ata 
? 
мелер: 
а 
. 


4 
t 
Гү: 


с, 


A 
ген ИГ 
u 


> 
Ka 
23-29 


Н 


ZU 


“< 


E 


i шиг 


n 3 


FLUX 
C 
“ТОР 


М 


. 
. 


2409 9669 софе 2644 $049 0066 вода .... 


тээд 8959 зас, възд 60909 отео 9949 .... 


9609 гово «999 9909 b... 5000 реч? .... 


1 


е 


HANC] 
( 


а! 
n 


х 


F 
b. 


а (CLLK 


| 


С 


йг 


ei 
e 


nee 4799 5010 Feso 9904 tast dave воза 
пове өөө 9940 2994 .... 0906 0462 воо. 
atot 9994 9*95 0494 ол .... оо 6999 


«040 #600 4999 9999 оосо 5050 ете? $999 


-р 


`$ 
AE: 
(КА А 


E 
DEUX UN НОР 


> 
* 


UE 


>. 


4, 
e 


je 
е 


ARRIJ 


ww. #-19 пого 9594 99499 өзге 94299 2400 


Ф 

DEL IST) 
(NULL. 
NTI. 


1 


вет 9699 9709 tono 6999 6929 .... .... 


T 


11600 L. 


«494 0900 9909 .... 90999 t... .... .... 


ST) 


{SAVE 


(OBL. J 


5 


С> 


- 
> ` 


|". 


TE 


IL) 


е 
. 


? {FIN I 


`T 
е 


» 
Ф. 


КЕЗЕ 


* 


/ 


ў 
4 мА меч 


en, 
чин 


Lo È 


1975, page 52 / 58 


évrier 


z 


LISP T1600, f 


/ANWW.artinfo-musinfo.or 


h 


_ UTILITAIRES 


- PRETTY-PRINT : édite des fonctions LISP sous forme lisible et 
justifiée. 
Utilisation 
(PRETTY nom nom, ..nom ) 
1 2 n 


les noms. étant les noms de fonctions à éditer. 


TRACE : permet de tracer les appels de fonctions de diverses 
facons. 


Utilisation 


(TRACE nom nom 2.. nom ) 

1 2 n 
Tous les appels des fonctions nommées seront imprimés ainsi 
que la valeur de leurs arguments. Au retour seront également 
imprimés les noms des fonctions ainsi que leur valeur. 


и 


Pour les "détracer" faire 


(UNTRAC nom, nom, ... 


Pour tracer, dans des fonctions toutes les affectations par SETQ 
sous forme | 
variable = valeur affectée 


faire (TRACEQ nom, ... nom ) 


et (UNTRACQ nom, ... nom, ) pour les détracer. 


Pour tracer, dans des РЕЙ Св tous les branchements par 
GÓ sous forme | 
(ЕТІС : étiquette de branchement) 
faire (TRACEGÓ nom, ... nom, ) et (UNTRACG ...) 
pour les détracer. 


nom ) 
n 


LAP : assemble et charge des fonctions LISP rédigées -en LAP 
(PROGRAMME ASSEMBLEUR LISP) pour T1600. 


ын 


Utilisation : pour les SUBR faire (LAP nom DE) 
pour les FSUBR faire (LAP nom DF) 


Un exemple est donné : l'assemblage de la fonction PREPARER, de 
7 l'interprète CÉNNIVER-T1600. 
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СЕ TRACE CAL) 
(МАРС AL ? (LAMBI «хх1) 
(SET У/Х2 (OK (СЕТ 4X1 ЕХЕК) (GET ХХ1 FEXFR))) 
(OR «СЕТ ZX1 УРКТМП.) (PUT их4 AX2 'PRINTL2) 
са АмЕПпа CAX1 4X2) 
(CONTI4 | 
ССОЕТ ХХі ЕХЕК) (FUT их4 AX2 EXFR2) 


((GET ХХі FEXPRO (РИТ ХХі XX2 FEXFR)))) 


ХХі (LIST (CAR ихо) (CALR ЯХ2) 
(LIST *PRTRAC (CAUR ихо) ЯХ129)9) 
СПЕ ЕКТКАС CL ХХ ZX2) | 
(SET Рика (CAR 7122 
(SET *⁄X2 (CAUR 41) 
(PRENTE: eee > (CONTI ССАТОМ 4X1) (EVAL иж42) 
(СЕМІЗ AX12222 
(SET %УХі (EVAL «САШ (GET ИХ2 ?РКІМТІ222> 
СИГЕ Toae AX) 
AXi) 
«ШЕ FRINTL (7X1 4X3) 
(PRINI 4X1) (FRINI ZX2) CFRINI */ Z 2 (PRINT АХ 
СПЕ UNTRAC (ZL) В 
(МАРС ZL 
> АМЕПА (ZL) | и 
(RFLACA (COCR ZL) {GET ZL ?РКІМТІ 22 
RELACE (CORR 2123220)» . i 
СПЕ ХТКТЕ (ZXi ЯХ2) | 
(АЕС AL ? (LAMBDA CAL) | 
(RELACI ZL (SUBEST AX AX2 («СИК 31222222 


СОР TRACER (ZL) <ATRIF ?ЛҮБЕТО SETQ) ) 
СПЕ UNTRACO (ZL) «ИТКТЕ *SETG ? XTSETO)) 
СПЕ TRACEGO 4712 CATRTF *ZXTGO 7060522 
СПЕ UNTRACG (ZL) «ХТКТЕ ?СО *'ZTGO22? 
«ПЕ ZTSETQ (217 

(SET ҮРКІМІ «Сақ 212) (FROGN нэ 

ӨРКІМІ =) (PRINT (EVAL «САП 219333) 

(ТР 21760 (ZL) 

(РКІМТ (CONS *'ETIGS 422 

(GOTO «сак 71) 


20 - 


`> — mn oct n 


LISTING DU PRETTY-PRINT 


^. 


СОР PRETTY (L I ГЕБСАРЕ XFRTTY) 
(SETRIT 15) 
(ЕТО XFRTTY ? (LAMETIA €) (SETQ I (ALI 129. 
| (МАРС E ? С АМЕПА (E) 
(ЕМИ INE) XSUPERFRINT Е) did 
(SETQ I (SURI 1) 
(FRIN1 ?/)))) 
_ МАРС L 
° CLAMEBLIA £L) (TERFRI) ІРКІМІ Рик? (FRINT LO 
| (TTAB (БЕТП 4 329 
(GUFERFRINT (CADER 13) «РКІМІ /))2) 
(CLREIT 15) (TERFRI) ) 


(DE SUFERFRINT (E L) 
(ESCAFE ЕХТТ 
(CONTI 
((ATOM E) (FRINi ЕЭ) 
(«EQ (CAR E) QUOTE) (РКІМІ 7/7) (SUPFERPRINT (CALR БЭЭ? 
((FRINI 7/0 | | 
(WHILE Е (ВЕТО L (NEXTL ЕЭ) 
(CONI: 
(«NULL ED) 
СОК (MEMQ L LESCAFE) | 
(МЕМО L "(DR AND LIST PLUS TIMES WHILE PROON МАР МАРС)» 
(ЕКІМІ L) ШЕ 
(EXIT (ХЕКТТУ))) 
((EG L ”ЕБСАРЕ) (PRINi L) 
(SETQ LESCAPE (CONS (CAR E) LESCAFED) 
(EXIT «ХРКТТҮ) (NEXTL LESCAPE))) 
(«EG L LAMEDA) 
(FRINi LAMBDA) (SPACES 1) 
(ЗИРЕКРАТМТ (NEXTL ED) (EXIT (ХРЕТТҮ)) > 
((EG L "CONID 
(РКІМІ L) (SETQ I (ADDI 19) 
(МАРС E 
' (LAMBDA (E) (ЕМІШІМЕ) (FRINi ?/О 
(GUFERFRINT (NEXTL ЕЭ? 
(ХРАТТУ> 2) 
(SETQ I (5081 1)) 
(EXIT «РКІМІ ?/ООО» 
((EQ L ”РКОб) 
(ЕКІМІ L) («SPACES 1) («SUPERPRINT (NEXTL ЕЭ) 
(WHILE E 
(ENDL INE) | | 
(CON 
(САТОМ (САК ED) 
(РЕТМ1 (NEXTL Ер) (TTAR (TIMES 3 «PLUS I 223) D 
((SPACES 6)))  . 
(SETQ I (FLUS I 20) (SUFERPRINT (NEXTL ЕЭ) 
(SETQ I (IIFFER I 2))) 
(SETQ I (SUBI 1)) 
(EXIT «РКІМІ 7/2)))) 
(SUFERFRINT L) САМИ E (SFACES 1))) 
СРЕТМ1 7/33) 


me Ш 


«ПЕ ENILINE (52 CTERFRID (TTAR (TIMES I 322) 
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(САР РЕЕРӨКЕК ПЕ) 


FREFO 


FREFZ 


FREFS3 


FREF 4 


FREF 6 


РКЕРЕ; 


FINFREF 
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{$ РКЕРАКЕК) 
(LA Al) 

(LK Â L) 

«СЕ МАТОМ 


СЛЕ FINFREF) 


аа сак l.) 
(СЕ АПМОМЕ) 
(JE FINFREF) 


(CF (QUOTE 22) 


(МЕ FREF 
(Là СПК L) 
(STA 81) 
СКОК) 


(СЕ (QUOTE »22 


(„МЕ FREF4) 
(LA & СПК L.) 
{ЭТА ^i) 
(RSR) 


(СЕ (QUOTE (G2) 


(„МЕ FREF6) 
(LA CER L) 
(STÂ А1) 

(ЕК ЕуаА ГР) 


(СЕ (QUOTE %)) 


(„МЕ FREFS) 
PA & CUR 123 


(СР (QUOTE UNAGSSIGN)) 


(JNE ЕКЕЕО) 
(КЗК) 

(STA А1; 
(LR ка) 


CALIRI OOO02HH А? 


(CF TSTACR) 


{. $ ОООГНЫ) 


(ВК ERRFS»5 > 
(LE CIR L.) 
(FSR Е) 
(АБК 
(LE А1) 
(НК а) 
(FSR Е) 
(Тв 61) 


СКОК «РКЕРАКЕК) 2 


(АСК а) 

(LE 41) 
CESR CONSF) 
(STA Al) | 
(RE ОК) 


(FREFARERK) J 


= па = 


(CLR РКЕРАКЕК) 


SOFAHH 
2BCSHH 
350 3HH 
O7 00HH 
ӘОООНН 
554.4 j. HE 
осоенн 
(CAR БЕООНН 
огоонн 
FOOLHH 
апғанн 
iEO2HH 
(CAR авоонн 
OZ2OOHH 
ROQ Í НН 
АПЕАНН 
1ТЕО2НН 
(CAR ESOOHH 
OZOOHH 
ФООзНН 
япғанн 
ASE НН 
(CAR взоонн 
OZOOHH 
EO Ò Í HH 
(Сақ ШОООНН 
OZ00HH 
1ЕО2НЫН 
AT AHH 
BF GHH 
OQOZHH 
550 8HH 
OSOZHH 
453 RHH 
Фрог НН 
тазонн 


2) 


(8) 


Ф) 


UNASSIGND | 


«Сағақ асоонн FREF АКЕК) 


ЗРЕАНН 
ОЈ НН 
дазонн 


ALF AHH 


ссавк 4600HH РКЕРАКЕК> 


1СО1НН 

uF AHH е 
A4óDnLDHH 
ашғанн 
1EO2HH 


— — нн 


-53- 


EXEMPLE DE GENERATION DE PLAN 


EN CONNIVER Т1600. 


CSETQ CONTEXT NIL) 
(МАРС "ССОМ 1 TABLE) CON 2 D CON 3 2). 
` СОМ 4 5) СОМ 5 6) CON 6 TABLE)) АГ) 
(DE FREE (X 33 Z) 
| САМО (PRESENT "С08М !Z „х)) 
(СЕБЕБІ 225) 
(DE ЕВЕЕІ СО 
( FREE X) 
{ADD "CON +X TABLE))) 
` (DE SCENE (33 X Y) 
| СЕЙН- ЕАСН CON !X ТҮ) (PRINT CURRENT))) 
- (АБР CIF-ADDED IF-ON CON IX ЧҮ) 
| SAUXZ (X Y Z) 
(REMOVE (PRESENT "СОН X 1202999 
“ CADD (ТЕ-АПРЕР ТЕ-Р-09 (IF-PUT-ON IX су» 
^ ZAUX Z (X YO 
| . (FREE X) 
P2 СЕНЕЕ Y) 
^ ^. €ADD "CON sX 2102022 
-CADD (IF-REMOVED RMVD(CZN IX 17) 
ZAUXZ (X 7) 
(PUSH-PLAN "ВЕМОУЕ =(ØN »X »2)) 
CPUSH-PLAN ADD =(@М ›Х ,jY)))) 
(DE PUSH-PLAN CINDIC WHAT? 
: С5ЕТО PLAN (NCONCI PLAN 
ы (LIST INDIC (LIST “000ТБЕ ҰНАТОУООО 
b 
$ 
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CASSUMING СТЕ 


оғ 
CSETQ P 
NIL 

С SCEN E) 
сом 6 
CEN 5 
CON 4 
сам 3 
сем 2 
CON 4 
NIL 
(ON 5 
CEN 3 
CON 4 
CON 6 
CON 2 
CON 1 
T 

€ SGEN Е: 

` CLON 6 
CEN 5 

O {EN 4 
CON 2 
СЕМ 4 

Іі 


AB ж 


нежно жжжжэж А C T I Ø М жжжжжж жжжж 


LAN NIL) 


TABL E) ` 
6) 
5) 
2) 
1 
TABLE) 


2) 
TABL E) 
TABL Е)» 
TABL Е) 
12 
TAEL E) 


12 
ТАМ, Е) 


“(МАРС PLAN PRINT) 


СКЕМОСЕ 


с. CADD COUMTE (ON 


(REMOVE 
CADD (QUOTE 


CQUOTE CON 4 5222 


4 ТАВЬЕ))) 
СОЏИТЕ CUN 3 2222 
CON 3 TABLE222 
(REMOVE (QUOTE CON 5 622) 
5 222) 


CADD СОЏОТЕ CON 


NIL 
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у” ~ 


"PUT-DN 5 2) 4564822 


, 
жж 


Жжжж} 


